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introduction 



THIS BOOK IS INTENDED as a reference manual in the 
use of the Burroughs Algebraic Compiler. The 
Burroughs Algebraic Compiler is a hardware repre- 
sentation of ALGOL; it accepts symbohc programs and 
produces machine-language programs for the burroughs 
220 Electronic Data Processing System. A full descrip- 
tion of the evolution and present status of algol is 
available elsewhere, f 

This compiler utilizes a Burroughs 220 consisting of at 
least the following components: 5,000 words of core 
storage, Cardatron,® with one input and one output 
(line printer) station, and two magnetic-tape storage 
units. 

The compiler itself consists of approximately 3,500 in- 
structions and 2,000 words of stored tables. 

The compiler reads the symbolic program from punched 
cards and prints out a copy on the line printer. This 
listing includes a count of the cells used by the compiled 
program, together with any diagnostic messages to the 
programer. The machine-language representation of the 
compiled programiswrittenon magnetic tape at approxi- 
mately 500 instructions per minute. When all the sym- 
bolic cards have been processed, routines are copied 
from the compiler library onto the output tape, along 
with an appropriate loading routine. At the programer's 
option, the output tape may also include diagnostic rou- 
tines tailored to the particular program which has been 
compiled. Provision is made for the inclusion in the com- 
piled program of machine-language routines. At the end 
of compilation, the compiled program may be loaded 
and executed immediately. 

The text of this reference manual consists principally of 
definitions and rules for the use of the compiler, exam- 
ples of these rules, and some sample programs. A set of 

t See Communications of the ACM, vol. 1, no. 12, pp. 8-22; and 
vol. 3, no. 5, pp. 299-313. 



appendices summarizes the text and lists some details 
on the operation of the program, of the contents of the 
library, etc. 

Whenever a term ig defined, it is italicized in the defin- 
ing sentence. References in the index to definitions are 
also italicized. Script letters are used in the text to de^ 
note generic representations; for example, 8 is used to 
represent an expression and S to represent a statement. 
(In Appendix D, in accordance with algol representa- 
tion, some Greek letters have been employed.) For the 
most part, other symbols represent themselves. 

The examples, which have been used quite liberally, 
have been employed for 'definitions by example' in only 
those few cases where a formal description has proved 
particularly unwieldy. 

Burroughs Corporation is pleased to work closely with 
the Subcommittee on algol of CUE (Cooperating 
Users' Exchange) in the task of maintaining this and 
other literature concerning the Burroughs Algebraic 
Compiler. 

Although every effort has been made to publish this 
manual without errors, success in such an endeavor is 
seldom completely attained. Constructive criticisms of 
the contents of this manual will be appreciated by the 
authors and publishers. Please address them to : 

Manager, Automatic Programing 
Burroughs Corporation 
460 Sierra Madre Villa 
Pasadena, California, USA 

Additional copies of this manual may be obtained 
from your Burroughs Corporation representative. 
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CHARACTERS 

T^HE Burroughs Algebraic Compiler employs a 
-*- character set which is commonly available as a var- 
iant of the usual Hollerith code.f These characters are: 



Scientific 


Hoiierith 


Character set 


Equivalents 


The Roman Alphabet 


A, B Z 


A, B, ..., Z 



The Arabic Numerals 
0, 1, ..., 9 0, 1, ..., 9 

Special Characters 

+ & 

- - or @ 

( % 

) n 



$ 
/ 

(space) 



(space) 



In addition, some multiples of characters are given 
meaning as though they constituted a single character: 

ellipsis 
** base-10 scale factor appended 



t All of the examples in this manual are printed with the scientific 
character set. If card equipment with Fortran characters is 
used, these same characters will be printed, with the exception 
of the semicolon (;), which will print as a dollar sign ($). (The 
type wheel is variation 'F'.) Card equipment with 'standard' 
characters will print in Hollerith equivalents. 

X See page 10-3 for restriction on the length of identifiers to be 
monitored. 



From these characters statements are constructed which 
are translated by the compiler into the form suitable for 
execution by the Burroughs 220. 

Metalinguistic Symbols 

In addition to the script letters used in the text, some 
symbols will be employed with metalinguistic signifi- 
cance. These symbols include : 



symbol 


SIGNIFICANCE 


/>./ 


/is equivalent to 




^^has the form of 


^ 


ellipsis 


<> 


brackets 


p 


relational operator 


o 


arithmetic operator 


1 


or 


# 


space 


IDENTIFIERS 





The fundamental construct of the compiler language is 
the identifier. Identifiers are used to name the various 
things which make up a program, for example, variables, 
functions, labels, subroutines, etc. An identifier is com- 
posed of a string of letters, or letters and digits, not ex- 
ceeding 50 characters in length. t The first character of 
an identifier must be a letter; no special characters (in- 
cluding spaces) may be embedded within an identifier. 

In addition, a few identifiers are reserved for special use 
as operators, punctuation marks, and as names of li- 
brary functions. 

These reserved identifiers may not be used by the programer 
in any context other than that set down in this manual. A 
list of the reserved identifiers is given in Appendix B. 
Any other identifiers may be used at will. 



2-1 



BURROUGHS ALGEBRAIC COMPILER 



Examples: 

Z 

GAMMA 

SN2N1 

SIERRAMADREVILLAAVENUE 

A374 

YOUNGLADYOFCHICHESTER540 

RUNGEKUTTAGILL 

QUANTITIES 

The Burroughs Algebraic Compiler is concerned with 
the manipulation of three types of quantities: Floating- 
point quantities, integer quantities, and Boolean quantities. 

Floating-point quantities are numbers which may have 
both an integral and a fractional part. They are used to 
represent the class of real numbers to an accuracy of 
eight significant digits, the maximum permitted by the 
word length of the Burroughs 220. The magnitude of a 
floating-point quantity must be less than 10 ^<'. Any float- 
ing-point quantity which is smaller in magnitude than 
0.1 X 10"*° is represented by zero. 

Integer quantities are those numbers which do not have 
a fractional part, and which represent the class of inte- 
gers which can be expressed in the word length of the 
Burroughs 220, i.e., integer quantities must be smaller 
than 10*° in magnitude. 

Boolean quantities represent truth values. The only val- 
ues for Boolean quantities are one, meaning true, and 
zero, meaning /afse. 

A program may contain quantities of any or all of these 
three types. The programer assigns the types of the 
variables, evaluated functions, and expressions which 
appear in his program. (See Chapter V.) The type of a 
constant depends upon context and form. 

VARIABLES 

Variables treated by this compiler are of two kinds — 
simple variables and variables with subscripts. A simple 
variable represents a single quantity and is denoted by 
an identifier; a variable with subscripts represents a single 
element of an array and is denoted by the identifier 
which names the array, followed by a subscript list en- 
closed in parentheses. The list consists of arithmetic 
expressions separated by commas. 

Examples: 

Simple Variables 

X 

ALPHA 

C13 



Variables with Subscripts 

A(I,J) 

M(I + 1J + 1) 

V(F(P + 1),12 + Q) 

Z(W(T), X(T), Y(T), Z(T)) 

C(13) 

The expressions (see Chapter III) which make up the 
subscripts of a variable with subscripts may be of any 
complexity. Even floating-point values are allowed, in 
which case the floating-point number is truncated — the 
fractional part dropped — to an integer. Each subscript 
must have a value which is not less than unity and not 
greater than the maximum specified for that array by 
the ARRAY declaration (see Chapter V). The number 
of subscript expressions must equal the number of di- 
mensions of the array. 

Whether a variable represents a floating-point, integer, 
or Boolean quantity is determined by the 'declaration of 
type' described in Chapter V. 

CONSTANTS 

Integer Constants 

Integer constants are represented by a string of digits. 
A maximum of ten significant digits is allowed. Leading 
zeros are ignored. Spaces may not be imbedded within 
an integer. 

Examples: 



17 

16384 

2111 

Floating-Point Constants 

Floating-point constants are represented by a string of 
digits which contains '.' — a decimal point. The decimal 
point may not appear at the beginning or end of the string; 
it must be imbedded within it. A floating-point constant 
may contain a maximum of eight significant digits. Lead- 
ing zeros are not counted toward this maximum. 

Examples: 

3.1415927 
43.0 
0.00006174205 

If desired, a scale factor may be appended to a floating- 
point constant to indicate that it is to be multiplied by 
the indicated power of 10. This scale factor is written as 
two asterisks followed perhaps by a '+' or '-' sign and 
then by an integer. The integer specifies the power of 10 
to be used, and is limited to a two-digit number. The 
magnitude of such a floating-point number must not 
exceed 0.99999999 X 10«. 
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Examples: 

2.6**5 means 2.6 X lO^ or 260,000 

1.7**-3 means IJ X lO"' or 0.0017 

A third option allows a floating-point number to be 
written as an integer followed by a scale factor. 

Example: 
3**+4 

This is precisely equivalent to writing 3.0**+ 4 or 
30,000.0. Note that a scale factor alone may not be used 
to specify a floating-point number — it is not valid to use 
**— 2 to indicate 10"^; it must be written l**-2 or 
1.0**-2, etc. 

Boolean Constants 

Only two Boolean constants are allowed : Zero (written 
as 0) means false, and one (written as 1) means true. 

The compiler allows the use of a wide variety of func- 
tions. In this section we will consider only the simplest 
iOrm oi lUncuionai nouSidon in oru.er uo provide a j^asis 
for the next chapter. (Chapter VIII contains a complete 



description of the use of functions and the manner in 
which they are defined.) For the moment we will assume 
that a function acts on one or more quantities called 
arguments and produces a single quantity as a result. 
This resulting quantity is called an evaluated function. 

General Form: 






R^ 



where ^ is an identifier which names the function and 
Si through Sg are expressions which are the arguments 
of the function. 

Examples: 

SIN(X) 

SQRT{B*2-4.A.C) 

HYPERGEOM(A,B,C,Z) 

L0G(SIN(THETA-ALPHA/2)) 

PEIRCE(P,Q) 

The type of a function depends on the manner in which 
the function was defined. The type required for each of 
the arguments is also determined by the definition of 
the function. It is the programers responsibility to en- 
sure that each of the arguments is of the proper type. 
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expressions 



THE COMPILER deals with two kinds of expressions: 
Arithmetic expressions (those having numerical val- 
ues) and Boolean expressions (those having truth val- 
ues). This chapter describes the manner in which these 
expressions may be combined to produce new expres- 
sions. Expressions must be well formed in accordance 
with mathematical convention and with the rules set 
forth below. 

ARITHMETIC EXPRESSIONS 

Arithmetic quantities are combined by means of the 
onerations H — • / and *. The svmbol * is used to denote 
exponentiation, that is, B*2 has the meaning B^, In ad- 
dition to these five symbols, parentheses are employed 
to indicate that a specific order of evaluation is to be 
followed rather than the conventional order of evalua- 
tion. To be explicit, it is assumed — in the absence of 
parentheses to indicate otherwise — that exponentiation 
is performed before multiplication, multiplication before 
division, and division before addition and before sub- 
traction. Convention in writing algebraic expressions 
suggests this ordering rather than that of assigning equal 
precedence to multiplication (O^ and division (/). As is 
customary in mathematical literature, the expressions 
A/B/C and A*B*C are regarded as ambiguous. Pa- 
rentheses should be used to express the exact meaning 
desired. 

A variable, a constant, or an evaluated function of float- 
ing or int^er type will in itself constitute an arithmetic 
expression. Furthermore, if 8: and 82 are any arithmetic 
expressions and 83 is an arithmetic expression the first 
character of which is not a + or -, then each of the 
following combinations is also an arithmetic expression: 

81*82 81 + 83 

81/82 81 — 83 

81 82 +83 

(Si) -83 

t Represented on card equipment as a decimal point (.)• 



If 81 and 82 are both constants, the programer must 
write (81) '(82), to avoid conflict with the notation for 
constants. 



Examples: 


X + Y*2 


C.SIN{N.3.1415927.F) 


ARCTAN(HORIZ/VERTL) - ALPHA 


(-B + SQRT(B*2-4.A.C))/2.A 


(Z13*-3 + Z14*-3)/-17.2 


All . 1 1.11 A/I . 1 1\ l\lt\\ 
T\\\ T X, J T 1; — rvil T 1,1;/ »W; 



Omission of the Multiplication Sign 

In certain instances the ' • ' representing multiplication 
may be omitted. In general, this omission is possible 
wherever the lack of a ' • ' will not result in ambiguity. 

More specifically, suppose that: 

^ is an identifier specifying a simple variable, an array, 

or a function; 
•U is an identifier specifying a simple variable; 
91 is any constant; and 
~ is the symbol for is equivalent to; then — 

V( ~ V'{ 
)9(l ~ )-9l 
9l( ~ 9l-( 

)(-)•( 
9W ~ 91-^ 

Examples: 

4A.C 

3(A + B){A - B) 

TAN {2X) ALPHA 

2SIN(X)C0S{X) 
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The Type of an Arithmetic Expression 

The type of an arithmetic expression is determined by the 
types of its constituents. Suppose that £, and 8j are in- 
tegral expressions and that 8i and 8j, are floating-point 
expressions. Further, take o to mean any of the arith- 
metic operations: -\ — • / or *. Then, 

8, o 8y is an integral expression, and 

Si o 8„ I 

8x o 8y /are floating-point expressions. 

8x o 8„ ; 

In general, if either expression is floating-point, then the 
result of combining them will be floating-point; if both 
expressions are integral, then the combination is also 
integral. 

When mixed values are combined by the operations 
+ - • and / , the compiler provides the program to 
convert the integral value to its corresponding floating- 
point form. The actual computation is done in floating- 
point. Exponentiation is usually performed by a routine 
taken from the library of the compiler. Separate entries 
to this routine are provided for each of the four com- 
binations of integral and floating-point values. 

If in a mixed combination the integer is a constant, the 
necessary conversion is performed at the time of com- 
pilation, resulting in no loss of efiiciency in the object 
program. For example, if X is a floating-point variable, 
the expression X + 1 will be compiled as though the user 
had written X + 1.0. 

Arithmetic Combinations of integers 

As mentioned in Chapter II, integers may be no more 
than ten digits in length. In all arithmetic operations, 
digits are dropped from the most significant end of the 
answer to produce a ten-digit result. Thus 

(734981) -(1000000) yields 4981000000; 
5000000001 + 5000000001 yields 2. 

Division of integers is unrounded. Thus, 

3/2 yields 1; 7/11 yields 0; 41/3 yields 13. 

Division by zero is undefined. 

BOOLEAN EXPRESSIONS 

Boolean quantities may be combined by means of oper- 
ations to form Boolean expressions in a manner entirely 
analogous to the combination of arithmetic quantities by 
arithmetic operations. Boolean expressions are again 
true or false, depending entirely on the truth values of 
the quantities entering into the expression and the defi- 
nitions of the Boolean operations combining them. 



Relational Operators 

Another class of Boolean expressions is comprised of 
those which result from a test on arithmetic expressions. 
These are termed arithmetic relations, and consist of two 
arithmetic expressions and a relational operator. The 
latter is an operator in the sense that it performs a trans- 
form on the comparison to produce a truth value. Such 
a truth value may be used either to effect a change of 
program control, or (if the relation is enclosed in paren- 
theses) to produce a Boolean value true or false. 

General Forms: 

First form: 
8i p 82 

where 81 and 82 are arithmetic expressions, and p is a 
relational operator. This relation has the value true if 
81 does indeed stand in the relation p to 82; it is other- 
wise false. It is used only in control statements; (see 
IF, UNTIL, and EITHER IF). 

Second form: 
(81 p 82) 

This produces the Boolean value one (true) if 81 p 82 
is true, and produces the value zero (false) otherwise. 
Since the result is Boolean, it may be combined with 
any of the other Boolean operators previously dis- 
cussed. The relational operators employed in this com- 
piler are GTR, GEQ, EQL, LEQ, LSS, and NEQ. Their 
significance is indicated in the following table. 





conventional 






mathematical 




SXPRESSIONt 


NOTATION 


MEANING 


81 GTR 82 


81 > 82 


greater than 


81 GEQ 82 


81 > 82 


greater than or equal to 


8i EQL 82 


81 = 82 


equal to 


81 LEQ 82 


81 < 82 


less than or equal to 


81 LSS 82 


81 < 82 


less than 


81 NEQ 82 


81 9^ 82 


not equal to 



t Spaces are required to the left and right of the relational 
operator. 



Within the context of this compiler, two numbers are 
equal if the quantities which are their internal machine 
representations are identical. Note, first, with regard to 
floating-point quantities, if A-B EQL 0, it is not neces- 
sarily the case that A EQL B ; and second, that zeros are 
equal to each other regardless of sign. 

Examples : 

(X NEQ 0) 

(ABS(L- LPRIMEjLSSEPSILON) 

(T GTR TMAX) 



EXPRESSIONS 



The compiler permits arithmetic operations to be per- 
formed on quantities which are not of the same type. In 
similar fashion, relational operators may be used to 
compare quantities which are not of the same type. If a 
floating-point quantity is to be compared to an integral 
quantity, the integer will be converted to its corre- 
sponding floating-point form prior to the comparison. 



IS a 



during compilation. 



^»lQ+Ql-.t tl-Vf 



\^VJl.XC>l;CXXlli, ijlXO «^V/ii V Ol OJUJXl WL/«^U1 
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Boolean Operations 

The Boolean operations which are accepted by the com- 
piler are NOT, AND, OR, IMPL, and EQIV. These op- 
erations are called negation, conjunction, disjunction, 
implication, and equivalence, and are defined as follows 
(P and Q are Boolean quantities) : 

The expression NOT P is true whenever P itself is 
false', it is false whenever P is true. 

The expression P AND Q is true if and only if both P 
and Q are true. If either P or Q is false, then P AND 
Q is aho false. 

The expression P OR Q is true if either P or Q or both 
are true. P OR Q is false only when both P and Q are 
false. 

The expression P IMPL Q is true whenever either Q is 
true or both P and Q are false. If P is true and Q is 
false, then P IMPL Q is false. 

The expression P EQIV Q is true if P and Q are both 
true or both false. If either P is true and Q is false or 
P is false and Q is true, then P EQIV Q is false. 

These definitions are summarized in the following table, 
in accordance with this representation of algol. 



p 


Q 


NOTP 


PANDQ 


PORQ 


P IMPL Q 


P EQIV Q 


false 


false 


true 


false 


false 


true 


true 


true 


true 


false 


true 


true 


true 


true 


true 


false 


false 


false 


true 


false 


false 


false 


true 


true 


false 


true 


true 


false 



Construction of Boolean Expressions 

Any variable, constant, or evaluated function will itself 
constitute a Boolean expression, if it is of Boolean type. 

In addition, if Si p 82 is an arithmetic relation, and (Bi 
and (B2 are any Boolean expressions, then each of the 
following is also a Boolean expression: 



(Si p 82) 
NOTcBi 
(Bi AND (B2 



(Bi OR (B2 
(Bi EQIV (B2 
(Bi IMPL (B2 



((Bi) 



Precedence of Boolean Operations 

Conventions for the order of precedence of Boolean 
operations are not so well established as are those for 
arithmetic operations. However, we shall assume the 
following order, which is apparently the most common: 

Unless indicated otherwise by the use of parentheses, NOT 
will be executed before AND; AND will be executed before 
OR; OR will be executed before IMPL; and IMPL will be 
executed before EQIV. 

The expression P IMPL Q IMPL R is ambiguous; par- 
entheses should be used to express the exact meaning 
desired. 

Examples: 

NOT(P AND Q) OR R IMPL P OR NOT Q 

NOT (NOT P) EQIV P 

P IMPL P OR U AND V 

(PORQ) AND NOT (PANDQ) 

(ALEQX)AND(XLEQB) 

(ERROR LSS TOLERANCE) OR (N GTR 40) 

RANDS0R(F(Z)EQL4) 

(M.N(R - 2) + 4 LSS TAN (BETA - ALPHA)) OR FLAG 

(U.SINH{M) GTR M7) EQIV (V.COSH(M) GTR M12) 

Any Boolean expression may appear in an arithmetic 
expression, where it will in all respects behave as if it 
were an integer taking on the values zero or one. In 
such a case, Boolean operations will be executed prior 
to arithmetic operations, unless parentheses have been 
used to specify otherwise. 

Examples: 

G - 0.3N.(D LSS 300) 

A + V.NOT 81 OR B2 
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THE statement, S, is the fundamental unit of expres- 
sion in the description of an algorithm. Most of 
what follows in this manual deals with the formation of 
statements and their interrelation to form larger con- 
structs. Statements may be divided into two classes — 
the operational statement and the declarative statement. 
Operational statements specify something that the object 
program is to do. Declarative statements give information 
to the compiler about the program being compiled. After 
this chapter, the word 'statement' will usually be em- 
ployed to mean an operational statement ; a declarative 
statement will then be called a declaration. HG\Yever 
for the present, 'statement' will stand for either sort. 

The first part of this chapter discusses one particular 
kind of operational statement — the assignment state- 
ment. The last part of the chapter deals with the gram- 
mar of statements in general, using assignment state- 
ments for examples. 

THE ASSIGNMENT STATEMENT 

The assignment statement specifies an expression which 
is to be evaluated and a variable which is to have the 
resulting value assigned to it. 

General Form: 
V =S 

where 1) is a variable and £ is an expression. Note that 
the symbol = is used in a special sense in this compiler 
to signify the process of substitution. Thus X = X + 1 
means 'using the current value of the variable X, eval- 
uate the expression X + 1, and assign the result as the 
new value of X.' Although X = X -f- 1 is not a valid 
equation, it is a well-formed operational statement, and 
the compiler will carry out the indicated substitution. 
Thus the following valid algebraic expression 

X-*2 = Y + 2, 



has no meaning to the compiler, while 

X = SQRT (K) 

is a valid statement, and can be evaluated by a compiled 
program, which then assigns the value of /K to the 
variable X. 

Arithmetic Assignment Statements 

If the variable 1) in t) = S is of integer or floating-point 
type, then we have an arithmetic assignment statement. 
If V is an integer and 8 is floating-point, then the value 
of S will be converted to integer form (truncating any 
fractional part) before the assignment is made. If V is 
floating-point and 8 is integral, then the value of 8 will 
be converted to the corresponding floating-point num- 
ber. If 8 is Boolean, it is treated as if it were integral. 

Examples: 

R = (-B + SQRT(B*2-4A.C))/2A 

FUNC = Yd) + (Yd + 1) - Y(I))(ARG - X(I))/(X(I + 1) - X{l)) 

U = X.COS(THETA) + Y.SIN{THETA) 

OMEGA = 1/SQRT(LC) 

E = IVI.C*2 

P(N) = {(2N - 1).P(N - 1) - (N - 1).P{N - 2))/N 

C(U) = C{I,J) + A(I,K).B(K,J) 

Boolean Assignment Statements 

If the 1) in D = 8 is a Boolean variable, we then have a 
Boolean assignment statement. In this case, the expres- 
sion 8 must be Boolean. 

Examples: 

FLAG = (SWITCH4 OR SWITCH5) AND FLAGPRIME 

TEST = (X NEQ 0) AND (Y NEQ 0) 

IVI(l,J) = M{l,J)ORK(l,K)ANDK(J,K) 

TOGGLES = T0GGLE4 AND TAG OR (U LSS V) 
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Generalized Assignment Statement 
General Form: 

If it is desired to assign the same value to a number of 
variables, it can be accomplished in a single statement 
by employing this generalized form. 

Note that if the list of variables to which a value is being 
assigned is of mixed type, then conversion of type will 
be performed; e.g., assume X, Y, and 8 are floating, and 
I is integer. Then the statement 

X = I = Y =8 

will cause 8 to be truncated to an integer before storing 
into I, and this truncated result floated before storing 
into X. Thus, in this example, X = I=Y=8, X = Y 
=1=8, and I =X = Y = 8 may all give different results 
when 8 is floating. 

Examples: 

V = X = Y = 15.302 

A{l) = B(l) = Z = 



THE GRAMMAR OF STATEMENTS 

This section discusses certain definitions and rules of the 
compiler language which have to do with the writing of 
statements. The basic rule of the grammar of state- 
ments is that statements must be separated by semicolons. 

Even though a statement ends on a given line and the 
next statement begins on the next line, the separating 
semicolon must be indicated. The end of a line has no 
meaning as punctuation. 

General Form: 

where the symbol S represents any statement. Unless 
otherwise indicated, statements are performed one after 
the other in the sequence in which they are written. As 
many statements as desired may be written on a line 
(subject of course to the physical limitations of the in- 
put medium), or a statement may use as many lines as 
are required for its expression. 

Example: 

W = A + B;X = A- B;Y = A.B;Z = A/B 

Compound Statements 

It is frequently desirable to group several statements 
together to form a larger construct which is to be con- 
sidered as a single statement. Such a construct is called 
a compound sixitement. 



General Form: 

BEGIN Si; 82; ^;S„END 

where Si through S„ are statements. The words BEGIN 
and END serve as opening and closing 'statement pa- 
rentheses.' Indeed, the symbols '(' and ')' may be sub- 
stituted for the words BEGIN and END with no 
change in meaning. 

Throughout this description of the compiler, unless the 
contrary is specifically stated, the word 'statement' and 
the symbol S should be construed to mean either a sim- 
ple or a compound statement. 

Certain other constructs involving the grouping of sev- 
eral statements automatically constitute compound 
statements. These will be discussed further in their pro- 
per context in Chapter V. 

Examples: 

BEGIN U = -B/2A; V = SQRT(U*2 - C/A); 

R1 = U + V;R2 = U-VEND 

BEGIN S = SINdHETA); = COS(THETA); 
XI = G.X + S.Y; ETA = -S.X + C.Y END 

(S = A(I,J);A{I,J) = A{J,I);A(J,I) = S) 

Statement Labels 

It is often necessary to attach a name to a statement. 
This name is called a statement label £,. A statement label 
may consist of an identifier or of an integer. (Leading 
zeros of an integer used as a statement label are without 
meaning to the compiler — the statement labels 13 and 
013 are in all ways equivalent.) 

General Forms: 
First form: 
^.. S 

Second form: 
91/.. S 

where ^ is an identifier, fJlj is an integer, and S is any 
statement. 

Examples: 

START..SUM = 

LEGENDRE..P(N) = {(2N - 1) P(N - 1) - (N-1)P{N - 2))/N 

ROTATE..BEGIN S = SIN(THETA); C = COS(THETA); 

XI = C.X + S.Y; ETA = -S.Y + C.Y END 

27..BETA = ARCTAN{HORIZ/VERTL) - ALPHA 

When labeling a compound statement, the programer 
may repeat the statement label after the word END. 
This may be done for readability of the print-out pro- 
duced during compilation; the compiler itself makes no 
use of the information. 
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General Form: 
£..BEGINSi;_;SnEND£ 

Examples: 

ROOTS-BEGIN U = -B/2A; V = SQRT(B*2 
Rl = U + V; R2 = U - V END ROOTS 
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In those cases where it is necessary during the running 
of a program to transfer from a point in a BEGIN ^ 
END clause to a point just before the word END, a 
labeled dummy statement is employed. This statement 
label, which does not in itself produce any action, takes 
the form of an identifier followed by two pepods, direct- 
ly preceding the word END which terminates the group 
of statements. An example of this is shown on page 6-5, 
Search of a rectangular game for a saddle point. 



General Form: 

BEGIN Si; S2;_;S„;£..END 

It is sometimes necessary to introduce a section of ma- 
chine-language coding into the compiled program, which 
will then act in all respects like a statement. To do this, 
one employs the declarator EXTERNAL STATE- 
MENT in the program. 

General Form: 
EXTERNAL STATEMENT £ 

The identifier £ serves as the label of the EXTERNAL 
STATEMENT. 

The definition of the statement, i.e., the machine-lan- 
guage program itself, appears after the FINISH declara- 
tor of the symbolic program. (See Appendix E, Con- 
siruciion of Machine-Language Programs). 
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THE DECLARATIONS OF TYPE — FLOATING, REAL, 
INTEGER, and BOOLEAN are defined in this 
chapter, together with the ARRAY, COMMENT, and 
FINISH declarations. These do not exhaust the entire 
set of declarations available to the programer; however, 
the others constitute separate subjects in themselves 
and are therefore reserved for later chapters. 

Declarations determine how the compiled program will 
treat certain of its elements. It is thus necessary to pre- 
cede the use of an element with such a declaration. 

DECLARATIONS OF TYPE 

Declarations of type are used to indicate that a specified 
set of identifiers represent quantities of a given type 
(floating-point, integer, or Boolean). By the use of pre- 
fixes, entire classes of identifiers are declared to be of a 
given type. In addition, it is possible to declare that a 
variable not appearing in any declaration of type is of a 
given type. 

Construction of Declarations of Type 
General Form: 



FLOATING 


3£ - 


REAL 


3£ J 


INTEGER 


3£ 


BOOLEAN 


3£ 



where 3£ is a iype list to be defined below. These state- 
ments declare the identifiers given in 3£ to be of float- 
ing-point, integer, and Boolean types. (FLOATING and 
REAL produce equivalent results in the compiler.) A 
type list consists of a sequence of entries separated by 
commas. Possible entries include identifiers, identifiers 
followed by blank subscripts, and prefixes. 

Example: 

INTEGER I, J, K, L, 1, GCD(,), TABLE( ) 



(Note that the use of a pair of parentheses following an 
identifier in a declaration of type has no effect on the 
compiled program; they are there only for the conven- 
ience of the programer.) 

Example: 

BOOLEAN (SWl, SW2, FLAG, TOGGLE(„)) 



The Use of Prefixes 

If desired, one may put a prefix into a type list rather 
than use an identifier. A prefix consists of an identifier 
followed by three periods. The maximum number of 
characters is five, for an identifier used for this purpose. 

General Form : 

Example : 
MQR4... 

The appearance of this prefix in a declaration of type 
means that any variable, function, or array, the identi- 
fier of which has MQR4 as its first four characters, and 
which is not otherwise declared, is of the specified type. 

It is possible for prefixes to introduce apparent ambi- 
guities. Consider, for example, 

FLOATING ABCD, AB4; INTEGER AB...; 
BOOLEAN ABC... 

What are the types of AB13, ABCD, ABCDEF, AB4, 
and AB5? The rule governing this situation is: Unless 
specifically indicated in a type list, an identifier is matched 
against the longest applicable prefix. Thus, the above 
identifiers are of integer, floating. Boolean, floating, and 
integer types, respectively. 
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Declaration by Default 

The word OTHERWISE may be written in lieu of a 
type list. This form indicates that any name of a vari- 
able, array, or function not specifically declared and not 
matching any of the prefixes is to be of the type denoted 
by this declaration. If no such statement is given, any 
undeclared variable, array, or function will be assumed 
to be floating-point. This construction may be called 
declaration by default. 

Examples: 

BOOLEAN SW, P,Q,R; FLOATING X,Y,Z,F( ); 
INTEGER OTHERWISE 

INTEGER I, J, K, N, M..., G; BOOLEAN OTHERWISE 

To repeat the remark made in the introduction of this 
chapter : The type of an identifier must be declared before 
that identifier is used in any other statement. If an identi- 
fier is used prior to a declaration of type it is declared, by 
default, as FLOATING. 

THE ARRAY DECLARATION 

The ARRAY declaration provides a means of referring 
to a collection of numbers by the use of a single identi- 
fier, and at the same time specifies to the compiler the 
structure which is to be imposed on this collection. 

Arrays in this compiler are restricted to those of rec- 
tangular construction in n-dimensional space. 

If the identifier of an array is declared in a declaration 
of type, then that declaration of type must precede the 
ARRAY declaration. 



Construction of ARRAY Declarations 

An array must have been described by an ARRAY de- 
claration prior to the use of any variable with subscripts 
which represents an element of that array. 

General Form: 

ARRAY £d, £^, ^, £^ 

where £^'s are list items of the array declarator list. 
These list items take on two general forms: 

First form: 
Second form : 

^ (9fii, _, 3ig) = (911, £(E, m, _, an) 

Roth of these forms declare d to be an array of q dimen- 
sions. Each dimension contains the number of elements 
given by the corresponding value of 91 ; hence the value 
of 91 is the maximum which a corresponding subscript 
expression may assume. 



The second form is used to set initial values for the ele- 
ments of the array at load time; see Filling an Array, 
below. 

Example : 

ARRAY (IVI(3,4), CHAR (6,6,6), VECTOR (100)) 

This declaration reserves twelve cells in storage for the 
two-dimensional array M, 216 cells for the three-dimen- 
sional array CHAR, and 100 cells for the one-dimen- 
sional array VECTOR. 

At the programer's option, the list of arrays being de- 
clared may be enclosed in parentheses to improve the 
readability of the symboUc program. Such use of these 
parentheses will have no effect on the compilation. 

Filling an Array 

An item in an ARRAY declaration may have appended 
to it a list of values to be assigned at the beginning of 
computation to the elements of the array. Referring 
to the second form, above : 

Second form : 

6 (9li, ^, 9lg) = (9n:,9n,9R, ^,911) 

The quantities 9n are constants (with their respective 
signs) which are placed in the positions of the array d. 
(The compiler will, if necessary, convert these constants 
at the time the program is compiled to agree in type 
with that of the identifier d.) 

Example : 

ARRAY Q{3,2) = (7.3, 9.1, 4, 127.3, +4.19, -2.2) 

Assuming Q has been previously declared to be floating, 
this declaration will cause the matrix Q(I, J) 

[7.3 9.1' 

4.0 127.3 

14.19 -2.2^ 

to be available in memory when the compiled program 
is loaded. 

It is not necessary to fill up the entire array in this 
manner. Cells to which no constant is assigned are 
cleared to zero at the time the program is loaded from 
tape. 

Referring again to the second form above, the con- 
stants gn are placed in the array d in the following order : 

The first subscript is (1, 1, ..., 1, 1). For each succeeding 
value of 911 the rightmost subscript is advanced by one. 
After the rightmost subscript reaches its maximum 
value, "Siq, it is reset to one, and at the same time the 
subscript to its left is advanced by one. 

In similar fashion, the other subscripts are advanced, 
the subscript in the (i - l)th position being increased by 
one at the same time that the ith subscript is reset. 



BASIC DECLARATIONS 



These cycles continue until all data have been stored, or 
until all subscripts have reached their respective maxi- 
mum values. 

Assuming an array A(ni, 1x2, ..., ng_i, n,), this results in 
the following sequence of subscripts: 



CYCLE 



First 



Second 



1 nu u 



(ni-rii' 



'Tig-i - l)th 



{ni-Tiz- ... •nq-i)th 



SUBSCRIPT 



1, 1, ..., 1, 1 

1, 1, ..., 1, 2 



1, 1, ..., 1, n, 

1, 1, ..., 2, 1 
1, 1, ..., 2, 2 



1, 1, ..., 2, n. 



11 Q 1 



/ Til, /l2, ..., Ug-l - 1, 1 

Til, TI2, ..., Jlq-i — i, Z 



Ml, ri2» •••» ^g-1 ~ Ij n^ 

Til, ^2, ..., riq-l, 1 
Ml, n2> •••» ^g-lj 2 



/ll, 712, •••» '^g-lj ^j 



THE COMMENT DECLARATION 

The COMMENT declaration allows the programer to 
include anv clarifvine remarks, identifvins svmbols.etc, 
in the printed compilation. The COMMENT declara- 
tion does not appear as part of the compiled program, 
and has no effect on the program; it merely sets apart 
any string of characters for printing as part of the com- 
pilation. Since the comment extends to the next semi- 
colon, a semicolon obviously cannot be used within the 
string of characters. 

General Form: 
COMMENT S. 

where S; is any string of characters not containing a 
semicolon. 

Example : 

COMMENT SMOOTH FIELD DATA AND REDUCE TO 
STANDARD FORM 

There is one restriction on the use of the COMMENT 
declaration. It must not be the last statement of a compoun.d 
statement; that is, a COMMENT statement must not 
be terminated by an 'END' or a ')'. Only a ';' may 
follow the comment. 

THE FINISH DECLARATION 

The FINISH declaration defines the end of the program 
being compiled, and terminates the compilation. A 

TT'TIVTTCIT J - _1 j.'__ t. j.l-_ 1 _ _i. _i _ x j. 

I'Xi'xxoxi uci;icti£iLHJii must auucfcii as Liic last stciLCiiieii.t 

in any program and may appear nowhere else in the 
program. The semicolon following a FINISH declara- 
tion is essential; it may not be omitted. 

General Form: 
FINISH; 

Example: 
FINISH; 

(See page A-2 for the manner in which the compiler 
treats the FINISH declaration.) 
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THIS CHAPTER deals with the means of expressing the 
'flow of control' of an algorithm which has been de- 
scribed in compiler language. The order of evaluation of 
equations is as important to the description of an algo- 
rithm as are the equations themselves. Experience has 
shown that there is a relatively small number of con- 
structions which commonly appear in the description of 
algorithms. This group of constructions has been in- 
cluded in the compiler language. 

The basic control statements provide the abilities: 

FirsU to transfer control to another part of the problem 
(the GO TO and SWITCH statements); 

second, to terminate computation (the STOP statement) ; 

third, to execute statements contingent on given criteria 
(the IF and alternative statements) ; and 

fourth, to control iterative processes (the FOR and 
UNTIL statements). 

TRANSFER OF CONTROL 

The GO TO Statement 

The GO TO statement provides the ability to transfer 
control from one part of the compiled program to another. 

General Form: 

GOTO£ 

where £ is a statement label. 

The statement with the label £ will be executed imme- 
diately after the GO TO statement. The word TO is 
redundant and may be omitted. 

Examples: 

GO TO START 
60A16 
GO TO 14 
GO POGO 



The SWITCH Statement 

An extension of the GO TO statement is provided by 
the SWITCH statement. The SWITCH statement uses 
the value of an expression to determine transfer of con- 
trol to one of a list of several statement labels. 

General Form: 

SWITCH 8, (£i, £2, £3, ^, £„) 

where S is an arithmetical expression and £1 through 
£„ are statement labels. 

The action of a SWITCH statement is as follows: 

Let i equal the integral part of the expression S; then, 

If i = 0, the SWITCH statement has no effect, and con- 
trol continues in sequence. 

If I i I < n, then a transfer of control is made to the 
statement the label of which is in the ith position in the 
list. 

If I I I > n + 1, then the action of the SWITCH state- 
ment is undefined. 

Examples: 

SWITCH Y + 2, (Al, A2, A3) 

If Y + 2 = 0, no transfer occurs. 
If Y + 2 = 1, transfer to the statement labeled Al. 
If Y + 2 = 2, transfer to the statement labeled A2. 
If Y + 2 =3, transfer to the statement labeled A3. 

SWITCH 31 + J, (XA, XB, XC, YA, YB, YC) 

SWITCH IVI0D{K,4) + 1, (ALPHA, BETA, GAMMA, DELTA) 

TERMINATION OF COMPUTATION 

The STOP Statement 

The STOP statement serves to indicate the end of opera- 
tion or a temporary halt in a compiled program. (Com- 
putation is resumed with the next statement in sequence 
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when the start lever is depressed.) If desired, a STOP 
statement may be accompanied by an expression the 
value of which is displayed in the A register when the 
computer stops. 

General Forms: 

First form : 

STOP 

Second form: 

STOPS 

where 8 is any expression. 

In the case of the first form, the computer stops with the 
contents of the A register undefined ; in the case of the 
second form, the value of the expression £ is found in 
the A register. 

Examples : 

STOP 

STOP 4241535362 

STOPANSWER(J) 

CLAUSES 

The GO TO, SWITCH, and STOP statements discussed 
thus far are by themselves complete statements and de- 
pend in no way on other statements to complete their 
meaning. The remainder of this chapter will discuss 
statements which bear an analogy to the dependent 
clauses of a natural language. In all cases, these clauses 
affect the behavior of the statement (or compound 
statement) which follows them. 

A construction consisting of one or more clauses 6 fol- 
lowed by a statement S, 

Cl> 62* 63* ~w 5 Sn 

is in itself a compound statement, requiring no addi- 
tional punctuation. 

Of course, if a clause is to affect the behavior of several 
statements, those statements must be grouped together 
as a compound statement: 

e; BEGIN Si; S2; S3; ^; S„ END 

Examples of these constructions will be given in context 
below. 

CONDITIONAL EXECUTION 

The IF Statement 

The IF statement provides the means of indicating that 
the next statement in sequence is to be conditionally 
executed. 

General Forms: 
First form: 

IF(B;S 



where (B is a Boolean expression — a 'condition' — and S 
is any statement. 

Second form: 
IF 81 p 82; S 

where 81 and 82 are arithmetical expressions, p is a 
relational operation, and S is any statement. 

The action of the IF statement is described graphically 
by means of the following flow chart: 



f Condition V- 



1 



s 



t 

First form: 

If the Boolean expression (B is true, the statement S is 
executed; if (B is false, S is skipped over. In either case, 
control continues in sequence following S. 

Examples: 
IF(X*2GTR7);STOP 
IF(IEQLJ);A{I,J) = 1 
IF (M NEQ 0) OR (N NEQ 0); GO TO LAST 
IFPEQIVRORPEQIVS;K = B(J) 
IF{XLEQO)ANDFLAG;X = ABS(X) 
IF U OR V AND (X LSS 2.4); BEGIN U = 0; 
V = 0; GO TO REPEAT END 

Second form: 

The most common form of condition which appears in 
an algorithm is a simple relation between the magnitudes 
of two arithmetical quantities. While this situation is 
certainly provided for under the first form (see the first 
two examples above), the slightly more concise second 
form is also allowed. In those cases where the second 
form is applicable and is used, the result will be the 
compilation of a significantly more efficient object pro- 
gram. The use of the second form is recommended 
wherever possible. 
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Examples: 

IFX*2GTR7;STOP 

IF!EQLJ;A{i,J) = l 

IFIEQLIX;SWITCHIX, (A,B,C) 

IF ABS(TERM) LSS EPSILON; GO OUT 

IF TGL4; IF Z GTR X + Y*2 - 4; BEGIN 2 = Y - 1; 
X = Y/(U + Y);G0L00P4END 

The Alternative Statement 

An extended form of the IF statement is provided by 
the alternative statement. A sequence of conditions is 
examined— in order — until one is found which is satis- 
fied. A statement associated with that particular condi- 
tion is then executed; the remainder of the alternatives 
are ignored. An option is provided for indicating a state- 
ment to be executed in the event that none of the se- 
quence of conditions is satisfied. 

General Forms: 
First form: 

EITHER IF (Bi; Si; OR IF (B2; Sa; ^ ; 
ORIF(B„;S„END 

Second form: 

EITHER IF (Bi; Si; OR IF (B2; S2; _ ; 
OR IF (B„; S„; OTHERWISE; Sn+i 

The followin*'' flow charts will serve to ex''^laiG these tw^ 
statements more precisely. For the first form we have: 




cSi 



s. 



For the second form we have: 



^1 



cSi 



u 



i 



^„ 



Sn 



^2 



S, 




Any of the conditions marked (B may be replaced by the 
simpler form, 81 p 82, whenever desired. 

In the case of the second form, no OR IF clauses need be 
used. If no OR IF clauses are used, the alternative 
statement becomes 

EITHER IF (B; Si; OTHERWISE; S2 

which expresses the very common construction: 



1 



c5i 



i 



1 



S, 



""ih 



f 



T 
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Example: 

COMMENT EVALUATE POLYNOMIAL 

USING RECURSION RELATION EMPLOYING PREVIOUS 

VALUES WHEN POSSIBLE. N IS ORDER OF POLYNOMIAL 

AND X IS ARGUMENT; 

EITHER IF N EQL 0; BEGIN M = 1.0**40; 

PN1 = 1.0END; 

0RIFNEQL1;BEGINM = 3;Z = X + X; 

R = X + Z;PN2 = 1;PN1 = XEND; 

ORIF(X + XEQLZ)AND(NGEQM - 1); 

GOTORECURSE; 

OTHERWISE; BEGIN PN2 = 1; PNl = X; 

Z = X + X;R = X + Z;M = 3; 

RECURSE.. BEGIN N = N + 1; FOR M = (M, 1, N); 

BEGIN R = R + Z; PN = (R.PNl - (M - 1)PN2)/M; 

PN2 = PNl; PNl = PN END END RECURSE END; 

POLYNOMIAL = PNl 



CONTROL OF ITERATIONS 

The UNTIL Statement 

The UNTIL statement is used primarily to provide con- 
trol of iterative processes where escape from the loop 
depends upon a result calculated within the loop. 

General Forms: 

First form: 

UNTIL (B;S 

Second form: 

UNTIL 8i p 82; S 

where (B is any Boolean expression, 81 p 82 is an arith- 
metic relation, and S is any statement or statement 
group. 

The action of the UNTIL statement is described graph- 
ically by means of the following flow chart : 




First form: 

The statement S is executed repetitively until the Bool- 
ean condition is satisfied; control then continues in 
sequence. If (B is satisfied initially, S will not be executed 
at all. 

Examples: 

COMMENT TABLE LOOK-UP; 

l = l;UNTILT(l)GEQARGMT;l = l + l 

UNTIL (L - LPRIME LSS TOLERANCE) AND 
{V LSS 0.01); BEGIN V = V*2; LPRIME = L; 
L = ITER (L,V) END 

COMMENT SUM SERIES FOR E*-X; 

N = 2; E = 1; T = 1; UNTIL (ABS(T) LSS l**-6) OR 

(N GTR 30); BEGIN T = -T.X/N; E = E + T; 

N = N + 1 END 

Second form: 

As in the case of the IF statement, the UNTIL state- 
ment is provided with an alternate form to produce a 
more efficient object program in those cases where the 
condition to be tested consists of a simple relation be- 
tween two arithmetic quantities. 

Examples: 

COMMENT SEARCH FOR ROOT OF F( ); 

FA = F(A); UNTIL ABS (B - A) LSS EPS; 

BEGIN U = (A + B)/2; EITHER IF FA.F{U) GTR 0; A = U; 

OTHERWISE; B = U END 

COMMENT ITERATED TRAPEZOIDAL INTEGRATION; 
H = {B-A);I = {F(A) + F(B))/2;J = 0; 
UNTIL I -2JLSS0.003H; 

BEGINQ = H;J = I;H = H/2;X = A + H; 

UNTIL X GTR B; 

BEGINI = I + F{X);X = X + QENDEND 

The FOR Statement 

The FOR statement finds its principal use in the control 
of an iteration where the statement or statement group 
to be iterated involves a variable (the induction vari- 
able) which must take on a succession of values. It is 
also used to cause a statement to be executed a prede- 
termined number of times. 

General Form: 

FOR V = d£; S 

where t) is a variable, d£ is an iteration list, and S is any 
statement or statement group. 

The iteration list describes the sequence of values that 
the variable V is to assume. The statement S will be exe- 
cuted for each of these values. After the iteration list has 
been exhausted, the statement following S will be 
executed. 



fi-4 



BASIC CONTROL STATEMENTS 



The most common form that an iteration assumes is a 
triplet of expressions separated by commas and enclosed 
in parentheses. 

First form: 

(Si. Ss, 8r) 

where 8/, Ss, and &t are arithmetical expressions. 

In this case, the FOR statement takes on the form: 

FORt) = (S/, 8s, Sr); S 

If the first character of 8s is not a minus sign, then the 
form is equivalent to the simpler statements: 

V =a = &i; £.. IF a LEQ Zt; 

BEGIN S; 'U = a = -U + Ss; GO TO £ END 

where Q represents the value of the induction variable 

V. I 
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In the case that the first character of 8s is a minus sign, 
the FOR statement is equivalent to: 

-U = (J = 8r; £.. IF a GEQ 8^; 

BEGIN S; -U = a = -U + 8s; GO TO £ END 

and the preceding flow chart holds if we replace > by 
<, and < by >. 

Note that if the test fails initially (i.e., 8/ > Zt in the first 
case, or 8j < 8r in the second), the triplet is considered 
vacuous, and the statement S will not be executed at all. 

On exit from the FOR statement, the value of the induc- 
tion variable T) is that which it has when the test first 
failed. In consequence, the use of a GO or a GO TO 



statement to transfer to any labeled statement included 
in the statement S within such a FOR statement may 
produce anomalous results. 

Examples: 

COMMENT EVALUATE INNER PRODUCT OF U( ) AND V( ); 
DOT = 0;FORI = (1,1,N); 
DOT = DOT + U(l)=V(!) 

COMMENT SEARCH RECTANGULAR GAME FOR 

SADDLE POINT; 
FORI = (1,1,M);BEGINL = 0; 

F0RJ = (1,1,N);IFA(I,J)GTRL; 
BEGINL = A(I,J);T = JEND; 

FOR K = (1,1,M); IF A(KJ) LSS L; GO AGAIN; 

GO FOUND; AGAIN.. END; GO NONE 

COMMENT SOLVE EQUATIONS A(N X (N + 1)) FOR X( ); 
F0RK = (N + 1, -1,1); BEGIN 
F0RI = (U,N);X(I) = A(I,1); 
F0RJ = (2,1,K);BEGIN 
D = A(U)/X(1); 

FOR I = (2,1,N); A(l - IJ - 1) = A(I,J) - X(I).D; 
A(N,J) = DENDEND 

The second form that an iteration list may assume is a 
list of expressions separated by commas. 

Second jorm: 

8l, 82, 83, ,vw, 8g 

In this case, the FOR statement appears as 

FOR V = 81, 82, 83, ^, 8,; S 

The behavior of this statement may be clarified by the 
following flow chart: 
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That is, the variable V is successively given the values 
of £i, 82, and so on through 8,. The statement S is exe- 
cuted once for each value which 13 assumes. 

Examples: 

FOR PRIME = 2,3,5,7,11,13,17; S 
FORX = 0, 0.1,0.5, 1.0, 5.0, 10.0; S 

Third form : 

The third form of an iteration list is actually a combina- 
tion of the first two: triplets of expressions which ap- 
pear in the first form may be used as members of the 
list of the second form. The sequence of values which 
results is the expected one. 



Examples: 

FOR Z = (0,1,10), (15,5,50), (100,50,1000), 5000,10000; S 

This statement would cause S to be executed for Z = 0, 
1, 2, ..., 9, 10, 15, 20, 25, ..., 50, 100, 150, 200, 250, ..., 
900, 950, 1000, 5000, and 10000. 

FOR I = (1,1,N); FOR J = (1,1,1 - 1), (I + 1,1,N); 
A(I,J) = A(I,J)/A(I,I) 

This statement will divide off-diagonal elements of each 
row of matrix A(,) by the diagonal element of that row. 
Note that the first triplet of the second FOR clause is 
vacuous when 1 = 1; the second is vacuous when I = N. 
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ONE OF THE MOST IMPORTANT aspects of the stoied- 
program computing device is its ability to treat 
subprograms which may be executed from any point in 
the main program. The compiler language includes sev- 
eral methods of definins subprosrams. each of which has 
its particular field of application. 

The declarations SUBROUTINE, FUNCTION, and 
PROCEDURE will be discussed, as well as the ENTER 
statement, the RETURN statement, a variation of the 
assignment statement, and the procedure-call statement. 
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definition and use of subprograms. 

SUBROUTINES 

The form of the subprogram which is conceptually the 
simplest consists merely of a compound statement, 
which may be executed on demand from any part of the 
remainder of the program without the necessity of re- 
writing the actual compound statement each time its 
particular effect is desired. For our purposes here, such 
a compound statement will be called a subroutine. 

The SUBROUTINE Declaration 

The SUBROUTINE declaration states that the follow- 
ing compound statement represents a subroutine. 

General Form: 

SUBROUTINE ^; BEGIN Si; S2; _; S„ END 

where d is an identifier and Si through S„ are the state- 
ments which define the effect of the subroutine. The 
identifier becomes the subroutine label. In such a case, 
^ is not a statement label in the usual sense although it 
may — at the programer's option — follow the word END, 
as may a label of any compound statement. 

All the identifiers which appear in a subroutine have 
precisely the same meanings as those assigned to them 



outside the subroutine. This is what is meant when a 
subroutine is said to be dependent on the program in 
which it is defined. 

The RETURN Statement 

The compound statement which defines the subroutine 
is executed starting with its first component statement. 
One (or more) of the statements Si through Sn which 
compose the subroutine and which follow the SUB- 
ROUTINE declaration must be a RETURN statement. 
Computation within the subroutine proceeds until a 
RETURN statement is encountered. 

General Form: 
RETURN 

The RETURN statement causes control again to be re- 
sumed in sequence at that point at which the subroutine 
was called. The RETURN statement is the only manner 
in which an exit from the subroutine may be effected. 
'Running off the end' of a subroutine will produce anom- 
alous results. 

A subroutine need not be defined prior to its use. Sub- 
routines may be defined within other subroutines. 

Example : 

SUBROUTINE EVALUATE; BEGIN U = 0; V = 0; 

FOR I = (1,1,N); FOR J = (1,1,N); BEGIN W = 0; 

FOR K = {1,1,N); W = W + X(I,K).Y(K,J); IF I EQL J; 

W = W-1;U = U + ABS(W); V = MAX(V,ABS(W)) END; 

U = U/N*2; RETURN END EVALUATE 

The ENTER Statement 

The ENTER statement is used to initiate the execution 
of a subroutine {to call a subroutine). 

General Form: 

ENTER ^ 

where ^ is the label of a subroutine. 

7-1 



BURROUGHS ALGEBRAIC COMPILER 



Example: 

SUBROUTINE CHEBYSHEV; 
BEGIN EITHER IF N EQLO; (M = 1.0**40; PNl = 1.0); 
OR IF N EQL 1; (M = 2; Z = X + X; PN2 = 1; PNl = X); 
OR IF (X + X EQL Z) AND (N GEQ M); ENTER RECURSE; 
OTHERWISE; BEGIN PN2 = 1; PNl = X; Z = X + X; M = 2; 

ENTER RECURSE END; 
CHEBY = PNl; RETURN; 
SUBROUTINE RECURSE; 
BEGIN FOR M = (M,1,N); 
BEGIN PN = Z.PNl - PN2; PN2 = PNl; PNl = PN END; 

RETURN END END CHEBYSHEV 

FUNCTIONS 

Another sort of subprogram is that resulting from the 
FUNCTION declaration. The reader should keep in 
mind that the FUNCTION declaration is only one of 
several ways in which functions are made available to 
the program being compiled. 

The FUNCTION Declaration 

The FUNCTION declaration serves to define those 
functions of a particularly simple and common kind, 
which may be expressed by means of a single expression. 
A function must be declared before it is used. 

General Form: 

FUNCTION JF ((Pi, (Pa, ^, (P„) = 8 

where 5 is an identifier which is to be the name of the 
function, (Pi through (P„ are identifiers which serve as 
the parameters of the function, and 8 is the expression 
which defines the function. 

Any well-formed expression 8 involving the identifiers 
(P. and any other identifiers appearing in the program 
may be used. Identifiers used as parameters of a FUNC- 
TION declaration are independent of identifiers used 
elsewhere in the program, even though the identifiers used 
as parameters are spelled in exactly the same way as the 
identifiers used in the program. (This is subject to the 
provision that there is no conflict between the declara- 
tions of type for the identifiers used in the main program 
and the desired type for those identifiers, spelled in the 
same way, which are used as parameters.) The compiler 
treats all other identifiers appearing in 8 as if they were 
part of the main program. 

The types (integer, floating. Boolean) of the parameters 
and the type of the value of the function itself are deter- 
mined by the declarations of type in the same manner 
as are other identifiers. 



Examples : 

FUNCTION ROOT (A,B,C) = (-B + SQRT(B*2 - 4A.C))/2A 
FUNCTION NORM (X,Y) = SQRT( (U.X*2 + V.Y*2)/(U + V)) 
FUNCTION NEGEXP(Z) = (1 + Z(0.2507213 + Z(0.0292732 

+ 0.0038278Z)))*-4 
FUNCTION ARCSINH(S) = LOG{S + SQRT(S*2 + 1)) 
FUNCTION STROKE(P,Q) = NOT (P AND Q) 

Functions may be declared inside of subroutines. 

Intrinsic Functions 

There is a small group of functions called intrinsic func- 
tions, the definitions of which are a part of the compiler. 
Each of the intrinsic functions is discussed in turn and a 
tabular summary of them is given below. 

MOD (8i, 82) 

The function MOD requires two integer arguments. 
The value of the function is the integer obtained as the 
remainder when the first argument is divided by the 
second. 

MAX (81, _, 85) and MIN (81, ^, 8,) 

The functions MAX and MIN must have two or more 
arguments. The value of the function MAX will be the 
value of the largest of its arguments (algebraically); 
the value of the function MIN will be the value of the 
smallest of its arguments (algebraically). 

The arguments may be either integer or floating-point 
expressions. If aU of the arguments are integers, then 
the value of the function will be an integer. If any of 
the arguments is floating-point, then the result will also 
be floating-point. 

SIGN (8) 

The function SIGN has a single argument. If this argu- 
ment is positive, the result will be +1; if zero, the 
result is also zero; if negative, the result is -1. The 
result of the SIGN function wiU be of the same type as 
that of its argument. 

ABS (8) 

The function ABS has a single argument. The result of 
the ABS function will be the absolute value of the 
argument and will be of the same type as its argument. 

PCS (8) 

The function PCS is used for interrogating the program 
CONTROL SWITCHES. Its valuc is Booleau in type and is 
true if the indicated program control switch is on 
and false if off. The units digit of the argument of 
the PCS function indicates which of the program con- 
trol SWITCHES, through 9, is to be interrogated. The 
argument may be either integral or floating-point. (If 
the MONITOR declaration is employed, the use of 
PCS(O) may be restricted. See page 10-3.) 



SUBPROGRAMS 



INTRINSIC FUNCTIONS 



Name and Description 



Type of Function Type of Argument(s) 



Example 



MOD {Xu X2) = Xi mod X2 Integral 



Integral 



Xi = 100; 

Xo = 7. 

MOD (Xi, X2) = 2. 



MAX (;^i, ..., Xk), k>2 



Same as arguments Integral or yl = 1; J5 = 14; C = 6. 

floating-point Y = MAX (A, B, C) 
y = 14. 



MIN (Xi, ..., X}c), k>2 



Same as arguments Integral or ^=0.1;5 = 14.0;C = 6.1. 

floating-point Y = MIN {A, B, C) 
Y = 0.1. 



/ 1, ;^ > 


Same as argument 


Integral or 


If X = 34, SIGN (X) = +1. 


SIGN (X) = 1 0, X = 




floating-point 


If JC - 0, SIGN (X) = 0. 


(-1,J^<0 






If;^= -15, SIGN (X) = -1. 


ABS (X) = \X\ 


Same as argument 


Integral or 


UX= -45.67, ABS (X) = 45.67. 






floating-point 


UX = +19, ABS(X) = 19. 


PCS (TV) 


Boolean 


Integral or 


If PROGRAM CONTROL SWITCH 3 is ON, 








If OFF, PCS(3) = 0. 



PROCEDURES 

A procedure is a closed independent routine which may 
be executed as a subprogram. This independence makes 
procedures extremely important features of this com- 
piler. A procedure may be written and checked out 
independently, a collection of these procedures then 
being retained as a repository of computing techniques. 
The flexibility built into the argument structure of 
procedures allows a specific procedure to be tailored to 
a variety of situations. 

Arguments of Procedures 

Whenever a procedure is used, a list of arguments is 
specified. These arguments may be grouped into three 
categories: Input arguments, output arguments, and 
program-reference arguments. Some of these categories 
may be missing, depending of course upon the specific 
procedure used. 

An input argument may be an expression or an array. 



t These constructs are discussed at length on pages 8-3ff. 



An output argument may be a simple variable, a vari- 
able with subscripts, or an array. A program-reference 
argument may be a statement label, subroutine label, 
input label, output label, or format label, t any function 
defined by a FUNCTION declaration, or any other 
procedure. 

It is important to distinguish between an array and an 
element of an array. A variable with subscripts is an 
element of an array — it represents a single quantity. An 
array, however, represents a collection of quantities. 
When an array is indicated as an argument of a pro- 
cedure, the procedure is concerned with this entire 
collection of quantities. 

Suppose that the two-dimensional array named M is to 
be an argument. The notation used for this argument is 
M( , ), the two empty subscript positions indicating 
that M is two-dimensional. It is also possible to spec- 
ify that a portion of some array be given to a procedure 
as an argument. For example, if a procedure requires 
that a certain argument be a one-dimensional array, the 
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array could be chosen as the (I + l)th row of M( , ) by 
writing M(I + 1, ). The single empty subscript position 
indicates a one-dimensional array. In similar fashion, 
the (L - 2K)th column of M would be written as 
M( ,L - 2K). In general, the name of an array fol- 
lowed by a subscript list which contains empty sub- 
script positions specifies an array with dimensions equal 
to the number of empty subscript positions. This holds 
whether or not some of the subscripts are specified. 

To specify a program-reference argument which is to be 
a label, or the name of a subroutine, input-data set, 
output-data set, or format list, it is necessary only to 
write the desired identifier. A function or procedure is 
specified by writing the name of the function or proce- 
dure followed by a pair of parentheses, for example 
TANH( ). 

Note that we now have a distinction between a function 
and an evaluated function. An evaluated function has 
its arguments specified ; it represents the quantity ob- 
tained by applying the definition of the function to 
those arguments, and is thus an expression. A function, 
however, represents only the definition. 

Functions Used As Arguments 

Any function — library, external, or declared — may be 
used directly as a program-reference argument, with the 
exception of the intrinsic functions, listed on page 7-2. 
The exclusion of these intrinsic functions as program- 
reference arguments was intentional, since the com- 
piler cannot treat this case directly. If a procedure 
requires a function as one of its arguments, and the 
user desires to specify it as an intrinsic function, that 
intrinsic function may be renamed by the use of the 
FUNCTION declaration. For example, if ABS( ) is to 
be the function specified, write 

FUNCTION F(X) = ABS(X) 

and give the procedure F( ) for its argument. 

No provision has been made in the compiler for using a 
function the arguments of which have been in part spec- 
ified and in part left empty. This situation causes little 
inconvenience, however, since the FUNCTION declara- 
tion may be used in lieu of such a feature. For example, 
assume that a function of two arguments Q(X,Y) is 
available and that it is desired to specify, as an argu- 
ment to a procedure, that function of one argument Y 
which is defmed by always setting X to (A - B)*3. If 
the declaration 

FUNCTION QPRIME{Y) = Q({A - B)*3,Y) 

is included in the symbolic program, then using the ar- 
gument QPRIME( ) will produce the desired results. 



The entry to a procedure is specified as follows: 

General Forms: 

First form: (P (da; oa; (P(Ra) 

where (P is the name of the procedure being called; 

^a is the list of input arguments; 

60, is the list of output arguments; and 
(PCRCt is the list of program-reference arguments. 

Any but not all of the argument lists may be missing, 
resulting in the following alternative forms: 

Second form: (P {^0} 
Third form: (P(^a;0a) 
Fourth form: (P (^tt; ; (P(Ra) 
Fifth form: (P ( ; Oft) 
Sixth form: (P ( ; Gft; (P(Ra) 
Seventh form: (P ( ; ; (P(Ra) 

FUNCTIONS DEFINED BY PROCEDURES 

Some procedures define functions — that is, the proce- 
dure with a given set of arguments represents a quantity. 
This is the extended form of the evaluated function 
mentioned in Chapter II. As an example of this sort 
of construction, suppose a procedure is available to 
perform definite integration, such as the following : 

SIMPS (A,B,EPSILON;;F()) 

where 

A and B are the limits of integration; 

EPSILON is the maximum tolerable error in the result; 
and 

F( ) is the function to be integrated. 

The value associated with the procedure is the value of 
the definite integral indicated. 

Now suppose that we wish to evaluate the equation: 



Then the assignment statement 

J = 4SQRT (SIMPS ( X - Y, X + Y, l**-6; ; G3( ) )*3 ) 

would suffice. 

The Procedure-Call Statement 

Rather than evaluating a function, a procedure may be 
constructed so that it performs a complete operation in 
itself. Such a procedure is called an 'extension.' All 
the input-output operations executed by a compiled 
program are of this kind. 
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As an example of such a procedure, suppose that a pro- 
cedure called INVERT has been defined to evaluate the 
inverse and also to calculate the determinant of a given 
matrix. The arguments of this procedure are to be: 

Input : The order of and the name of the matrix, 

the determinant and inverse of which are 
to be evaluated; 

Output: The array which is to receive the inverse 

and the variable which is to receive the 
computed value of the determinant ; 

Program- A statement label to which transfer is to 

reference : be made if the matrix is singular. 

The user would then write : 

INVERT (N,AU;B(,),D;ERR0R4) 

to set D to the value of the determinant of N X N ma- 
trix A(,) and to set B equal to the inverse of the matrix 
A. A transfer to the statement labeled ERR0R4 will oc- 
cur if A(,) is singular. This procedure call constitutes a 
complete (operational) statement in itself. Such a state- 
ment is called a procedure-call statement. 

As a second example, suppose that a vector of data 
points is to be treated by a least-squares smoothing 
process. Suppose a procedure called SMOOTH is 
available. The programer might write: 

SMOOTH! K,X();Y()) 

where the input parameters are first, the number of data 
points K, and second, the name X( ) of the vector con- 
taining them, while the output parameter Y( ) is the 
name of the vector to receive the computed results. 

Machine-Language Procedures 

There are three sources by which a procedure may be 
made available to a compiled program: 

First, the procedure may be taken from a magnetic-tape 
library of machine-language programs which define pro- 
cedures. These are called library procedures. 

Second, a machine-language program deck defining a 
procedure may be included with the cards containing 
the symbolic program. These are called external proce- 
dures. 

Third, a procedure may be defined in the compiler lan- 
guage. Since library procedures and external procedures 
are written in the internal language of the Burroughs 
220, any features of the computer for which no direct 
provision is made in the compiler language may be made 
availeible to a compiled program — for example, input- 
output equipment, multiple-precision arithmetic, detec- 
tion of overflow, etc. In addition, the library contains 
a selection of commonly used procedures to evaluate the 



elementary functions. While many of these functions 
may be expressed in the compiler language, the conven- 
ience of having these procedures 'on call' without the 
programer directly providing their definitions makes 
their inclusion in the library worthwhile. 

Appendix E describes the preparation of library and 
external procedures; Appendix F describes the library 
procedures currently available. 

Declaration of Procedures 

Procedures may be made available to the compiled pro- 
gram by means of the PROCEDURE declaration. 

General Form: 

PROCEDURE (P (_ £(P _); 
BEGIN Si; S2; ^; S„; END 

where (P is an identifier which names the procedure be- 
ing declared; the S's are the statements and declara- 
tions making up the definition of the procedure; and £(P 
is the list of parameters to be used by the procedure. 
As an alternative form, END may be followed by the 
name of the procedure and then by a pair of parentheses. 

The List of Parameters 

The list of parameters of the procedure declaration con- 
sists of identifiers and punctuation marks, these identi- 
fiers serving as names of the various parameters. 

Input parameters representing input arguments which 
are variables or expressions must be simply identifiers. 
Input parameters which represent arrays must be iden- 
tifiers followed by pairs of parentheses, perhaps contain- 
ing commas. The number of empty subscript positions 
within the pair of parentheses specifies the number of di- 
mensions of the array. Output parameters have the same 
form as input parameters and represent output variables 
or output arrays. Program-reference parameters which 
may be used include identifiers representing labels 
(statement, subroutine, segment, input, output, or for- 
mat labels) or identifiers, each followed by a pair of pa- 
rentheses representing functions or other procedures. 

The fist of parameters of a PROCEDURE declaration 
takes the same general form as the list of arguments of 
a procedure call. Let £f(P, 0(P, and (P(R(P represent input, 
output, and program-reference parameters respectively. 
Then the list of parameters may assume the following 
configurations: 



First: 


id(P; 0(P; (P(R(P) 


Second: 


(^(P) 


Third: 


{d(P; e(P) 


Fourth: 


(d(P; ; (P(R(P) 


Fifth: 


( ;0(P) 


Sixth: 


( ; 0(P; (P(R(P) 


Seventh : 


( ; ; (P(R(P) 
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Independence of Declared Procedures 

The compound statement defining a procedure is written 
in terms of the identifiers appearing in the list of param- 
eters of the PROCEDURE declaration, together with 
any other identifiers required. 

The definition of a procedure should be considered as a 
symbolic program which is independent of the program 
in which the declaration occurs; that is, all identifiers 
appearing within a PROCEDURE declaration are de- 
fined only in terms of the declaration itself. Identifiers 
spelled identically both inside and outside of any partic- 
ular PROCEDURE declaration are in no way associ- 
ated. There is one exception to this rule: After a proce- 
dure is declared, the identifier which names it is recognized 
as such throughout the subsequent program except where it 
is used as a dummy parameter for another declaration of 
a procedure or function. Indeed, the definition of a pro- 
cedure might be construed as adding another feature to 
the compiler language, since the name of a procedure 
is recognized throughout the program just as are the 
reserved words FOR, GEQ, etc. 

Declarations with Procedures 

The procedure definition must contain a sufficient num- 
ber of declarations to describe the identifiers appearing 
either as parameters or in any other form within that 
definition. Parameters which represent arrays, functions, 
or other procedures are identified as such by the punc- 
tuation associated with them in the list of parameters. 
For example, if W(, ,) appears as an input or output 
parameter, W should not appear in an ARRAY declara- 
tion within the PROCEDURE declaration. However, 
any parameters which represent quantities within the 
PROCEDURE declaration must have their types speci- 
fied, either explicitly within a type declaration, by pre- 
fixes, or by default. (See Chapter V.) These declara- 
tions have no force outside the PROCEDURE declara- 
tion. A parameter representing a label of one sort or 
another is identified as such by its inclusion in the 
program-reference portion of the list of parameters 
without a trailing pair of parentheses, this constituting 
a sufficient identification for labels. 

Parameters of Value and Name 

It is necessary to distinguish two classes of parameters, 
parameters of value and parameters of name. 

Parameters of value are variables within the procedure. 
These variables will be set to the values of their corres- 
ponding arguments whenever the procedure is called. 
Any change in them occurring within the procedure (for 
example, appearing as the left-hand member of an as- 
signment statement) will have no effect on the variable 
or variables which make up the corresponding argument. 



On the other hand, parameters of name are associated 
with their corresponding arguments in all respects. For 
example, if PAR is a parameter of name for a certain 
PROCEDURE declaration and, for some call of that 
procedure, ARG is the corresponding argument, then 
the effect is exactly as though the identifier ARG were 
substituted for the identifier PAR throughout the PRO- 
CEDURE declaration. 

Input variables (or expressions) are parameters of value. 
Input arrays, all output parameters, and all program- 
reference parameters are parameters of name. (There is 
thus no real distinction between an array indicated as 
an input or as an output parameter.) 

Construction of Procedures 

As mentioned earlier, a procedure is an independent pro- 
gram complete with its own declarations and statements. 
This program is contained within the BEGIN ^ END 
pair noted in the general form. The program defining 
the procedure is entered at the first statement following 
the BEGIN and continues in accordance with the se- 
quence specified. As with the SUBROUTINE declara- 
tion, a RETURN statement must be included at each 
exit point of the procedure to return control to the point 
directly following the procedure call. 

A procedure which is to serve as a function must include 
a procedure-assignment statement. 

General Form: 

(P() =8 

where (P is the name of the procedure being declared and 
S is an expression. The effect of this statement is to as- 
sign the value of 8 to the procedure. Immediately after 
this statement is executed, a RETURN statement must 
be executed. 

Whenever a procedure-assignment statement is used, 
the type of the procedure is determined from the dec- 
larations of type within the PROCEDURE declaration. 

FUNCTION and SUBROUTINE declarations may ap- 
pear within a PROCEDURE declaration. However, one 
PROCEDURE declaration may not appear within an- 
other procedure. 

If a SUBROUTINE declaration appears within a PRO- 
CEDURE declaration, a RETURN statement within 
the subroutine causes an exit from the subroutine, not 
from the procedure. 

Procedures must be declared prior to their first use. 
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Examples of PROCEDURE Declarations 

As a first example, we shall construct a procedure to 
perform linear interpolation of a tabular function of one 
variable, V. The parameters of the procedure will be two 
vectors, X ( ) and Y ( ), representing the independent 
and dependent variables, a value of the independent 
variable, an integer N representing the number of en- 

trips in tVlP tnVila onrl finolKr o e+ot/iTvioTit Ir^K^l ■RAIMOXT' 

to which transfer is made in the event that V<X(1) or 
V> X(N) . This procedure is to be used as a function, the 
value of which is the result of the interpolation. 

Example : 

PROCEDURE INTERP (X( ), Y( ), V, N; ; RANGE); BEGIN 
INTEGER I, N; 

IF (V LSS X(l) ) OR (V GTR X(N) ); GO TO RANGE; 
! = 1;UNT!LVLEQX(1);I = U1; 
INTERP( ) = Yd - 1) + (Yd - 1) - Yd) ) (V - X(l - 1))/ 
(Xd - 1) - Xd) ); RETURN END INTERP( ) 

As another example, we shall construct the integration 
procedure using Simpson's Rule mentioned earHer in 
this chapter, 

PROCEDURE SIMPS (A,B,EPSILON; ; F( ) ): BEGIN 

K = L = F(A) + F(B);H = B- A; 

GO TO ITER; UNTIL ABS( (K - 2IVI)/K) LSS EPSILON; 

BEGIN ITER..Q = H/2;S = 0;IVI = K; 

FORX = (A + Q,H,B);S = S + F(X); 

K = L + 4S ;L = (L + 2S)/2;H = QEND; 

SIIVIPS( ) = K.Q/3; RETURN END SIMPS! ) 

A procedure for multiphcation of square matrices: 

PROCEDURE MATRIMULT (N, A(,), B(,); C(,) ); BEGIN 
INTEGER l,J,K,N; 
F0RI. = (1,1,N);F0RJ = (1,1,N);BEGIN 

S = 0; FOR K = (1,1,N); S = S + A(I,K).B(K,J); 

C(I,J) = SEND; RETURN END 

(Note, in calling this procedure, that the matrix C must 
be different from A and B.) 

The following procedure solves a set of n equations in n 
unknowns. 

COMMENT SOLVE EQUATIONS WITH SELECTION 

OF BEST PIVOTAL ROW; 
PROCEDURE JORDAN (N,A{,);X()); 
BEGIN INTEGER l,J,K,L,N; 
FOR K = (N + 1, -1,1); BEGIN D = 0; 
F0RI = (2,1,K);IFABS(A(I - 1,1)) GTR D; 
BEGIN L = I- 1;D = ABS(A(L, 1))END; 
IFL- INEQO; 
F0RJ = (1,1,K);BEGIND = A(L,J); 
A{L,J) = A(1,J);A(1,J) = DEND; 
FORI = (l,l,N);Xd) = A(l,l); 
F0RJ = {2,1,K);BEGIND = A(1,J)/X(1); 
F0RI = (2,1,N);A(I - 1, J - 1) = A(I,J) - X(I).D; 
A(N,J-1) = D END END; RETURN END JORDAN! ) 



External Declaration 

By the use of this declaration, a programer may define 
a statement or a procedure in terms of machine lan- 
guage and include it in a compiled program. 

General Forms: 
First form: 

CVTCDMAl oxuxruiirin-r ^ 

LA I uRiinL o I n I civiciN I Xi 

where £ is the label of an external statement. 

The first form declares the program represented by £ 
to be a statement which will behave similarly to any 
other active statement in the language. The label of this 
statement will be £. 



Second form: 

EXTERNAL PROCEDURE £ ((P:,_,(Pj; 



INTEGER 
I BOOLEAN 
I FLOATING 

REAL 



£ 



where £ is the label of the external procedure, and (Pi, 
^, (P„ is a list of parameters. 

Both forms tell the compiler that a machine-language 
program to define £ follows after the FINISH card 
(See Appendix E). 

The second form defines the program represented by £ 
to be a procedure which will behave like any other pro- 
cedure in the language. Note that if the procedure is to 
define a function, then its declaration of tvnp niiist fnl- 
low it immediately. 

Examples : 

First form : 

EITHER IF V GTR NMAX; BEGIN EXTERNAL STATEMENT 

ERROR; GO RESET END; OR IF K LSS EPS; GO ERROR END 

Second form : 

EXTERNAL PROCEDURE COMPLEXMULT (A, B, C, D; X, Y); 

FLOATING COMPLEXMULT; SREAL = 0; SIMAG = 0; 

FOR I = (1,1,10); BEGIN COMPLEXMULT (AREAL(i), 

AIMAGd), BREAL(I), BIMAG(I); TREAL, TIMAG); 

SREAL = SREAL + TREAL; SIMAG = SIMAG + TIMAG END 

EXTERNAL PROCEDURE SPERR{;;FRDEC); 

IFVGTRNMAX;SPERR(;;NERR) 

PROCEDURE MATRIMULT (M, N, P, A( ), B( ), ROW, COLUMN, 
OUTTAPE; C( )); BEGIN INTEGER OTHERWISE; 
FLOATING A, B, C; EXTERNAL PROCEDURE REWIND (U); 
EXTERNAL PROCEDURE MAGREAD (N, U, A( )); 
EXTERNAL PROCEDURE MAGWRITE (N, U, A( )) ; 
REWIND (ROW); REWIND (COLUMN); REWIND (OUTTAPE); 
FOR I = (1, 1, M); BEGIN MAGREAD (P, ROW, A( )); 
FOR J = (1, 1,N); BEGIN MAGREAD (P, COLUMN, B( )); 
BEGIN S = 0; FOR K = (1, 1, P); S = S + A(K) B(K); 
C (J) = S; REWIND (COLUMN) END: 
MAGWRITE (N, OUTTAPE, CO) END; RETURN END 
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VIII . . . 



input-output 
techniques 



THIS CHAPTER DISCUSSES those features of the com- 
piler relating to communication of information be- 
tween the computer and the input-output equipment. 
In general, the compiler input-output operations are 
accomplished by means of machine-language procedures 
(either external procedures or library procedures). Three 
declarations are provided to aid in the input-output 
processes— the INPUT, OUTPUT, and FORMAT 
declarations. 



The INPUT Declaration 

The INPUT declaration associates with identifiers the 
ordered sets of numbers which are to be read into the 
computer as units. These sets of numbers will be called 
input-data sets and the identifiers are termed the input 
data-set labels. 

General Form: 
INPUT (^(2DS), ^, d{m)) 

where each d is the identifier declared to be the name of 
the corresponding input-data set SDS. As explained pre- 
viously (page 5-1) the parentheses around the list of 
input data-set labels in the above declaration are in- 
cluded at the programer's option. Input-data sets con- 
sist of a set of list elements separated by commas. The 
simplest of these sets is merely a list of variables. 

First form: 

Vi, V2, AW, Vn 

where each V may be either a simple variable or a vari- 
able with subscripts. 



Example: 

INPUT DATA! (X,Y,Z), DATA2 (P(l), Q(l)) 

This declaration defines DATAl to be the set of varia- 
bles X, Y, and Z (in that order) and DATA2 to be the 
set P(I) and Q(I), using the current value of I for the 
subscript. 

The next list element to be considered is termed the 
iterated variable. 



Cr I ^ . 

ut^vuimjunii'. 



FOR Vi = ^£; ^; FOR Vk = ^£; V 

where FOR t)i = £f£ through FOR Vk=S£, are FOR 
clauses which control the iteration of the variable 
(with subscripts) V. One or more of these FOR clauses 
may precede V. 

Example: 

INPUT ( VECTOR{FOR L = (1,1,F); Z(L) ), 

MATRIX ( FOR I = (1,1.N); FOR J = (1,1,M); E(I,J) ) ) 

This declaration defines VECTOR to be the name of the 
input-data set consisting of the variables 

Z(1),Z(2),Z(3), _,Z(F-1),Z(F), 

and MATRIX to be the name of the input-data set con- 
sisting of the variables 

E(l,l), E(l,2), _, E(1,M), E(2,l), _, E(N,M). 

Note that the values for F, M, and N must have been 
assigned elsewhere in the program. 

The remaining forms of the input-data set consist of 
combinations of the first and second forms. In the first 
form any V may be replaced by any input-data set and 
still be a valid data set. In the second form, the V may 
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be replaced by any data set enclosed in parentheses and 
still be a valid data set. In this case, all of the enclosed 
data set is iterated. These parentheses may be replaced 
by BEGIN and END if desired. 

Thirdform: 
SDS, 3DS, MVf dJ& 

Fourth form: 

FOR Vi = d£; «.; FOR Vt = d£; (SDS) 

The data-set Usts given by the third and fourth forms 
may of course be used as data-set hsts within their own 
definitions, thus providing for a very high degree of 
flexibiUty. 

Examples : 

INPUT EQUATIONS (N, FOR I = (1,1,N); 
(FORJ = (U,N);M(!,J),C(l))) 

This data set consists of the variables N, M(I,1), 
M(l,2), ..., M(1,N), C(l), M(2,l), ..., M(2,N); C(2), 
M(3,l), ..., M(N,N), and C(N). 

Note that as soon as a variable (in this case N) has 
been read into the computer, it is immediately available 
for use in a FOR clause or within a subscript expression. 

Input Procedures 

A machine-language procedure is employed to obtain 
numbers from the input medium. The name of an input 
data-set list usually will appear as a program-reference 
parameter of an input procedure. 

A READ procedure used very frequently is given below. 

There is an important feature of all input procedures 
which should be noted, so that caution may be exercised 
in their use. Any FOR clause with an INPUT declaration 
ajff'ects the value of the variable being stepped in exactly the 
same manner as a FOR clause controlling a statement. 
Thus if an input procedure is contained within the scope 
of a FOR clause and the INPUT declaration to which 
it refers contains a FOR clause, the variables stepped by 
the two iterations must be different. This also applies to 
the output procedures described later in this chapter. 

The READ Procedure 

The READ procedure provides card input for compiled 
programs. It may be called in either of two ways: 

General Forms: 
Firstform: 
READ (; ;^3l)£) 
Secondform: 

READ (;S;^a)£) 

t As opposed to the representation used for constants in the 
symbolic program, the decimal point may also appear on data 
cards at either end of the string. 



where ^2D£ represents the name of some input data-set 
list and S is a Boolean variable. 

The effect of this procedure is to read a card and scan it 
for information. As numbers are found, they are placed 
in storage according to the specifications of ^SD£. Suffi- 
cient cards are read to supply all the numbers requested 
by dS>£ ; if the entries on the last card read are not re- 
quested, they are lost. It is possible to mark a card as 
being a sentinel card. If the second form was used, the 
Boolean variable S is set to one when a sentinel card is 
found and the input process is terminated; S is other- 
wise set to zero. Using the first form will cause the word 
SENTINEL to be ignored. 



Preparation of Data Cards 

Data cards are punched with a digit five in column 
1 ; the remainder of the card is available for data. An 
integer is punched as a string of no more than ten 
contiguous digits, preceded by an optional + or -. 
Floating-point numbers are punched as a string of 
digits containing a decimal point, t 

No more than eight significant digits may appear in a 
floating-point number. Leading zeros are not significant ; 
trailing zeros are. A sign may precede the number. A 
scale factor (power of ten) may be attached to a floating- 
point number by following the number with a ',' (not 
'**'), an optional sign, and a two-digit integer. 

At least one blank column must separate the numbers 
on a card. A number may not be broken between suc- 
cessive cards. 

Alphanumeric input information is punched on a card 
bracketed with semicolons; consequently the character 
';' may not be used within the alphanumeric informa- 
tion itself. For example, if columns 13 through 41 of a 
card are to be entered alphanumerically (six words) 
then a ';' should be punched in columns 12 and 42. 

Alphanumeric information, in the form of integers, may 
be stored in the computer. One integer, ten digits in 
length, is stored in the computer for every five consecu- 
tive characters of alphanumeric information. The inter- 
nal representation is two digits per alphanumeric 
character as described in Appendix C of Operational 
Characteristics of the Burroughs 220 Electronic Data 
Processing System. If the number of columns of alpha- 
numeric information is not a multiple of five, the last 
integer formed wifl have zeros appended. The characters 
read from the card will be justified left in this word. 

An asterisk wiU cause all information to its right on the 
card to be ignored (if the asterisk is not within an alpha- 
numeric string). 
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Examples: 


1 


37 


-4724 


+ 0394 


3.0 


-.9 


+ 3.1416 



are integers 



are floating-point numbers 



-2.99 9 i 
on a'_-,'3 { are floating-point numbers with 

J J „ (scale factor 

; THE GOAT OF HOGAN ; is an alphanumeric entry 

A sentinel card is identified by punching the word 
SENTINEL starting at column 2 and followed by a 
blank column: 



COLUMNS 


ENTRY 


1 


5 


2- 9 


SENTINEL 


10 




11- 


(optional) 



OUTPUT OF INFOR/AATION 
The OUTPUT Declaration 

Ihe OU'l'FU'i' declaration associates with identifiers 
the ordered sets of expressions which are to be written 
out of the computer as groups. These sets of expressions 
are called output-data sets and the identifiers are termed 
output data-set labels. 

General Form: 

OUTPUT (d (m), _, g (SDS) ) 

where each d is the identifier declared to be the name of 
the corresponding output-data set SDS. (See page 5-2 for 
the explanation of the use of the outside parentheses.) 
Output-data sets are constructed in a manner precisely 
analogous to input-data sets with the following exception: 
Although only values of variables may be read into the 
computer, the value of any expression may be written out. 
Thus wherever a variable has been specified in the descrip- 
tion of an input-data set, the reader may substitute an 
expression in an output-data set. 

Example: 

OUTPUT RESULTS ( (R - 1) (S - 1), N(R), N(S), 8.4) 



t These formats are not to be confused with the format bands 
used in the Bubboughs Cardatron®. 



Output Procedures 

A machine-language procedure is employed to transmit 
numbers to the output medium. The name of an output- 
data set appears as the program-reference parameter 
of an output procedure. 



TU-. \A/DITC p— . I 

I lie: TT i\i I L. riOucuuic 

The WRITE procedure provides for writing the edited 
output of a compiled program on the line printer. 
the card punch, or the supervisory printer. 

First form: 

WRITE (; ; SDS, JF£i) 

Second form: 
WRITE (; ; JFiJa) 

where S)S is the name of an output-data set and JF£i and 
(F£2 are the names of format strings. 

The effect of the first form is to produce as an output the 
numbers specified by the output-data set S)S in accord- 
ance with the format specified by '3r£i. The second form 
is used to write the headings indicated by the format 
string ^£,2- 

The format strings mentioned are described in the next 
section. 



CONSTRUCTION OF FORMATS 

The FORMAT Declaration 

The FORMAT declaration has been designed specifi- 
cally for use with the WRITE procedure, and serves to 
attach names to strings of characters called/ormaf^, the 
latter describing the appearance of the output page or 
card. Such a name is then used as a parameter by the 
WRITE procedure. 

General Form: 

FORMAT (^(JFS), ^(fFS), ^, ^(JFS) ) 

where the fFS's are formats and the ^'s are the names of 
those formats;! (outside parentheses are again optional). 

The format consists of a sequence of phrases which are 
separated by commas and perhaps grouped by paren- 
theses. These phrases occur in two forms: 

Firstform: 
rLw.d 

Second form: 
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In the first form, the symbols r, w, and d represent inte- 
gers and L represents a letter. The integers r or rf or 
both are sometimes omitted, reducing the first form to 
Lw.d, rLw, or Lw in these cases. 

The integer r specifies the number of times a phrase is 
to be repeated. If r is omitted, the phrase is executed 
once. Phrases of the first form are divided into two 
classes — editing phrases and activation phrases. 

In the second form of a phrase, OS represents any se- 
quence of characters which does not contain an '*'. This 
phrase is used for placing alphanumeric titles or other 
indicative information in the output line. It is called the 
alphanumeric-insertion phrase. 

Repeat Phrases 

A list of phrases may be placed in parentheses to con- 
stitute a compound phrase. These parentheses may be 
nested to any depth. 

Definite-Repeat Phrase: 

r(5S) 

Indefinite-Repeat Phrase: 

($FS) 

where 3^S is a format string. The definite-repeat phrase 
uses the format string r times in succession; the indefi- 
nite-repeat phrase uses the format string repeatedly un- 
til there are no more variables to print. 

An entire format string is treated as if it were enclosed 
in parentheses specifying indefinite repeat. The inter- 
pretation of a format is terminated when there are no 
more variables to print and the right parenthesis of an 
indefinite repeat is encountered. If there are fewer vari- 
ables to print than are called for, the I, X, F, S, and A 
phrases are interpreted as blank-insertion phrases, Bw, 
to fill in the remaining spaces. 

Examples: 
3(5F15.8,W0) 
*TITLE*,W3,(5I11,W0) 

The first example is equivalent to: 
5F15.8,W0,5F15.8,W0,5F15.8,W0 

The second example will print a line which reads 
TITLE 

and will then print a series of lines, each line consist- 
ing of five integer variables, until no more variables are 
available from the OUTPUT declaration. If the number 
of variables to be printed is not a multiple of five, a suf- 
ficient number of blanks will be inserted to finish out 
the fine. 



Editing Phrases 

A numeric editing phrase specifies how a number is to be 
edited. There are six such phrases: 

Iw The I phrase specifies that an integer is to be 
printed (or punched) in a field w columns wide. 
The integer will be normalized right in that field 
and will have its leading zeros suppressed. If the 
integer being edited is negative, a '-' (minus 
sign) precedes it. The value of w must be suffi- 
ciently large to accommodate the largest integer 
to be encountered together with any possible 
minus sign. 

Xw.d The X phrase specifies that a floating-point num- 
ber is to be truncated to d places following the 
decimal point and printed in a field w columns 
wide. The value w must be sufficiently large to 
accommodate the largest number to be printed 
along with its decimal point and any possible 
minus sign. 

Fw.d The F phrase specifies that a floating-point num- 
ber is to be truncated to d significant digits and 
printed (or punched) in floating-point form as 
follows: 

A '— ' (if the number is negative), a '.', d digits, 
a ',', a '-' (if the power of 10 associated with the 
number is negative), and two digits representing 
that power of 10. Thus to accommodate negative 
numbers w > d + 6. 

Sw.d The S phrase specifies that a floating-point num- 
ber is to be truncated to d digits and printed (or 
punched) in a field w columns wide. A decimal 
point will be inserted at the appropriate position 
to cause the printing (or punching) of d signifi- 
cant digits if possible. If a number is less than 
0.1, zeros will be inserted between the decimal 
point (which will appear at the extreme left) and 
any significant digits printed, punched, or typed. 

kw The A phrase allows integers to be printed (or 
punched) in their alphanumeric equivalents. A 
single A phrase will produce, as an output, w 
characters, five characters of alphanumeric in- 
formation being translated from each ten-digit 
integer. If w is not a multiple of five, the least 
significant portion of the last integer will be 
ignored. 

If in any case the field width w which has been specified 
is less than the width required by the output informa- 
tion, or if there are undefined conditions in the format 
specifications, an asterisk will be printed in the corres- 
ponding field. 

Bw The phrase Bw will cause w blank columns to be 
inserted in the edited line. 
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Examples: 

We list here several phrases and a typical result of the 
editing they specify. In each example the first of the two 
lines indicates the result of the editing process, where 
the symbol # indicates an editing space. The line directly 
below each example shows the equivalent line as printed. 



Phrase 


Result 


417 


#####13# - 72431####342######0 




13 -72431 342 


3X5.2 


##.13#-.52#1.74 




.13 -.52 1.74 


X12.10 


f.0000000015 




.0000000015 



F10.3 #.472,-03 
.472,-03 

3F12.4 ##-.3942, 07###.4311,-03###.0000, 00 
-.3942, 07 .4311,-03 .0000, 00 

5S9.5 ###3427.1##-32.993##-.10206###13788.###.00014 
3427.1 -32.993 -.10206 13788. .00014 

A12 The use of this phrase, in conjunction with 
485659624543484562634559005741 
will result in the printout 
HORSECHESTER 



Alphanumeric Insertion Phrase 

The phrase *as* inserts the characters comprising the 
string GS into the line being edited. 



Examples: 

*PiPE DIAMETER* 

*TRANSCONDUCTANCE-MICROIVIHOS* 
*HIGH - LOW - CLOSE - NET CHG.* 
♦DURCHSCHLAGFESTIGKEIT - VOLT* 



Ww 



Activation Phrases 

An activation phrase specifies that the line described by 
the preceding phrases is to be sent to the output device. 

Whenever a line is written out in this manner, the image 
in memory of the line is reset to blanks. Thus, if an 
activation phrase is repeated, only the first execution 
produces anv orinted results: the reneat merelv nrovides 
vertical spacing. Four activation phrases are provided : 

The W phrase provides for output on the line 
printer. The value of w specifies the 'c-digit' to 
be used for printer control. If w is omitted, it is 
assumed to be zero. If the control panel is wired 
as specified in Burroughs Corporation Tech- 
nical Bulletin No. 17, Control Panel Wiring 
for Type 407 with Burroughs 205 or 220 Card- 
ATRON®, w is interpreted as follows: 

Result 

Single space before printing 
Eject page after printing 
Single space before and after printing 
Eject page before printing 
Double space before printing 
Skip to channel 2 before printing 
Double space before printing, single space 
after printing 
7 Skip to channel 3 before printing 

The P phrase specifies that the edited line is to 
be punched into a card. Note that, with the ex- 
ception of the A phrase, the edited form of the 
numbers is compatible with the requirements for 
input-data cards. Thus the output cards pro- 
duced by the WRITE procedure may be used for 
input to the computer under control of a READ 
procedure. 

The action of the C phrase combines those of the 
W and P phrases. Only the first 80 columns of 
the edited line will be punched. 

The T phrase specifies that the edited fine is to 
be typed on the supervisory printer. The val- 
ue of w specifies the number of carriage returns 
to be executed prior to typing. 



Cw 



Tw 



w 


1 
2 
3 
4 
5 
6 
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THE USE OF STORAGE OVERLAYS, though Dot essential 
for a majority of problems, is required whenever a 
program is too large for the amount of available storage. 
In such a case the program is coded in segments; these 
segments are then called into memory as a sequence of 
overlays under control of a master routine. 



To illustrate this graphically : 



PARTI 



MASTER 



KAKI^ 



PARTS 



Storage Capacity 



Here MASTER is the name of the master routine and 
PARTI, PART2, and PARTS are the names of the 
segments. The lengths of the horizontal lines may be 
taken as proportional to the number of instructions in 
the master routine and in the various segments. It will 
be noticed that in this case only sufficient storage capac- 
city for MASTER and PART 3 is required. 

Each of the segments may in turn have subsegments. 
All of these segments then become the master routines 
for the control of their respective subsegments. For example : 







PROGA 




PARTI 








PROGB 


/AASTER 






PROGC 




PART2 


PROGD 






PROGE 




PARTS 





The master for PARTI, PART2, and PARTS thus is 
MASTER; the master for PROGC, PROGD, and 
PROGE is PART2, etc. 

THE SEGMENT DECLARATION 

The SEGMENT declaration is used to indicate the 
division of the program into segments. 

General Form: 

SEGMENT ^; BEGIN Si; S2; ^ ; S,. END 

where ^ is an identifier which serves as the name of the 
segment (segment label) and Si through S„ are the state- 
ments which make up the segment. If desired the seg- 
ment label may follow the word END as is the case with 
any other compound statement. 

For example, the segmentation diagramed above would 
be written as; 



i AAV /VW iVVV (VW ) 



MASTER. 
SEGMENT PARTI; BEGIN^^ 
SEGMENT PROGA; BEGIN. 
SEGMENT PROGB; BEGIN, 
END PARTI; 



.END PROGA; 
.END PROGB 



SEGMENT PART2; BEGIN 
SEGMENT PROGC; BEGIN, 
SEGMENT PROGD ; BEGIN, 
SEGMENT PROGE; BEGIN 
END PART2; 



iWV jVW /VVV iVfcV A%V J 



.END PROGC; 
.END PROGD; 
^END PROGE 



SEGMENT PARTS; BEGIN END PARTS 
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THE OVERLAY STATEMENT 

The OVERLAY statement is used to call a segment of 
the compiled program into storage. 

General Form: 

OVERLAY d 

where d is the segment label of the segment to be called. 
There are three rules governing the use of the OVER- 
LAY statement : 

First: Any segment may be overlaid only by a seg- 
ment of the same immediate master. 

Second: The OVERLAY statement which calls a seg- 
ment into storage must appear in the master 
routine corresponding to the segment being 
called. Otherwise, segments may be called in as 
many times as the user wishes, in any order. 

Third: The OVERLAY statement does not by itself 
produce a transfer to the segment being called. 
Such a transfer must be provided for separately 
by the user. The segment label may not be used 
as a statement label for effecting this transfer. 



Example: 

BOOLEAN S; REAL A, B; INTEGER OTHERWISE; 

ARRAY A(200); 

RD..READ(;S;INDAT); IF S; BEGIN OVERLAY SENTINEL; 

N = N + 1; GO TO START END; N = N + 1; OVERLAY ZERO; 

GO STARTP; 

INPUT INDAT (B, C, FOR I = (1, 1, 200); A(l) ); 

FORMAT FR (15, 5F20.8, WO); 

SEGMENT ZERO; BEGIN STARTP.. 

FOR I = (1, 10, 200); WRITE {;; FR, OUTP); GO TO RD; 

OUTPUT OUTP (I, FOR J = (1,2, 1 + 8); 

SIN (COS(LOG(A(J))))) END ZERO; 

SEGMENT SENTINEL; START..BEGIN FOR I = (1, 10, N - 10); 
WRITE (;; FR, OUT); WRITE (;; FRR, OUTR); 
STOP 0757007250; GO RD; 
OUTPUT OUT(l, FOR J = (I, 2, I + 8); A(J)); 
OUTRd, FOR J = (I, S, I + MOD(N, 10) - 2); A(J)), 
FORMAT FRR (*l = *, 14, 5(*G(I) = *, F14.6), WO, W3) 
END SENTINEL; FINISH; 



Q-2 



ERROR MESSAGES 

MONITORING 

MEMORY PRINTOUT 



A • • • 




facilities 



THE COMPILER has been equipped with a set of diag- 
nostic aids. Some of these are operative at the time 
of compilation, others at the time the object program is 
run. These aids take the form of error messages con- 
cerning the symbolic program, a symbolic snapshot fea- 
ture, a symbolic memory printout, and messages on the 
LINE PRINTER produccd by machine-language proce- 
dures when unsuitable arguments are presented to 
them. A listing of the compiled program may also be 
obtained as a desperation tactic. 

ERROR AAESSAGES DURING COMPILATION 

While compilation is in progress, a copy of the original 
symbolic program is written on the line printer. If the 
compiler detects an error in the program, a message is 
also written on the printer. Whenever an error is detec- 
ted, the compiler attempts to continue processing the 
symboUc program. Since the compilation technique of 
necessity depends on the syntax of the symbolic program 
for its classification of identifiers and statements, an 
error in syntax may well produce a misclassification. If 
the remainder of the symbolic program is processed with 
the compiler in such a 'confused' state about the charac- 
teristics of the program, a proliferation of error mes- 
sages may result. 

If things get altogether out of hand, the compiler may 
even come to a disorderly stop. Although such genera- 
tion of spurious error messages is unfortunate, it has 
been considered preferable to attempt to continue proc- 
essing, in order to discover as many errors as possible in 
a single pass rather than to force the compiler to aban- 
don the compilation after the first error is detected. 

The programer himself must make the distinction be- 
tween genuine errors and those introduced by previous 
errors. However, it should not be assumed that all er- 
rors in syntax will produce error messages. 



No usable compiler can provide error messages which 
explicitly describe every possible syntactical error. How- 
ever, sufficient information usually is gained from the 
error message to permit straightforward correction of 
the program. 

The following is a partial list of error messages and some 
suggestions as to their possible cause. 

COMPILER CAPACITY EXCEEDED 

The internal storage capacity of the compiler has been 

PYhanstpd Thp pnTnr>il<^r stnns with vC = 0000007777 



CONSTANT OUT OF RANGE 

A constant too large for the internal representation of 
the Burroughs 220 was either written in the symbolic 
program or was formed when the compiler combined 
constants arithmetically. 

DUPLICATE PROCEDURE NAME 

The identifier assigned as the name of a procedure by a 
PROCEDURE declaration (or the name of a function 
by a FUNCTION declaration) has appeared in another 
context in the program. 

DUPLICATE STATEMENT LABEL 

An identifier has been employed in another context in 
the program. (Note that this may be the result of calling 
a function or procedure before it has been declared.) 

EXTRA OPERAND 

This error message may arise from a wide variety of 
causes. Check for omitted commas, semicolons, or other 
punctuation; for proper spelling of reserved identifiers, 
and for a space imbedded within an identifier; or for the 
omission of a space between contiguous identifiers. 
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EXTERNAL PROGRAM NOT DECLARED 

The external procedure or external statement declared 
on some name card was not declared within the sym- 
bolic program. 

EXTRA LEFT PARENTHESIS 

This error message may occur only at the end of proc- 
essing the symbolic program. It is usually caused by the 
inclusion of a spurious 'BEGIN' or '(' or by the omis- 
sion of a required 'END' or ')'. Errors in the syntax of 
FOR or alternative statements, or in any of the declara- 
tions, may also introduce unwanted left parentheses 
into the program even though the programer did not 
explicitly write them. 

EXTRA RIGHT PARENTHESIS 

This error is usually caused by the inclusion of a spu- 
rious 'END' or ')' or by the omission of a required 
'BEGIN' or '('. As with the extra left parenthesis, 
check on the syntax of control statements and declara- 
tions. The compiler tries to recover from this error by 
introducing a left parenthesis to match the right paren- 
thesis in question. If the right parenthesis was merely 
misplaced, this will produce the message EXTRA LEFT 
PARENTHESIS at the end of compilation. 

IMPROPER ARGUMENT OF MOD FUNCTION 

The arguments of the intrinsic function MOD must be 
of integer type. 

IMPROPER ARRAY DECLARATION 

An error in syntax has occurred in an ARRAY declara- 
tion. Check in particular to see that all of the dimen- 
sions are specified as integer constants. 

IMPROPER ASSIGNMENT STATEMENT 

An expression or a constant has occurred to the left of 
an '='. 

IMPROPER BOOLEAN OPERAND 

An attempt has been made to use a floating-point quan- 
tity as a Boolean operand. The compiler cannot detect 
integer quantities used as Boolean operands. 

IMPROPER CHARACTER PAIR 

Two successive characters (omitting spaces) have oc- 
curred which are meaningless, for example, '+)', '=*', 
or ',;'. The compiler will ignore the second of these 
characters and continue scanning. 

IMPROPER CHECK SUM 

A failure has occurred in the magnetic-tape system. The 
compiler will reread the bad tape block repeatedly in an 
attempt to bring in the information correctly. 



IMPROPER EMPTY SUBSCRIPT POSITION 

One of the character pairs '(,' '„' ',)' or '( )' has oc- 
curred in the wrong context. 

IMPROPER FUNCTION ARGUMENT 

An expression has been written as an output or program- 
reference argument; a label, function name, or proce- 
dure name has been used as an input or output argu- 
ment; or an array has been used as a program-reference 
argument in a procedure call. 

IMPROPER INPUT DECLARATION 

An expression or constant has been used as a quantity 
to be read in. 

IMPROPER RELATION OPERATOR 

One of the arithmetic relational operators has occurred 
in the wrong context. 

IMPROPER SCALE FACTOR 

An attempt has been made to use a scale factor which 
is not an integer constant. 

IMPROPER STATEMENT LABEL 

An identifier has been used as a label, in conflict with 
previous context. 

IMPROPER SUBSCRIPT 

Either too many or too few subscripts have been asso- 
ciated with an array. 

IMPROPER VARIABLE SYMBOL 

An identifier has been used as a variable, in conflict 
with previous context which implied that it was not a 
variable. 

MISPLACED ARITHMETIC OPERATION 

One of the symbols + - • / or * has been used in 
the wrong context. 

MISPLACED DECIMAL POINT 

The symbol . has been used in the wrong context. 

MISSING OPERAND 

A misplaced operand may result in the error messages 
MISSING OPERAND and EXTRA OPERAND ap- 
pearing in the printout of the compilation. The com- 
piler expected an operand and could not find it. Check 
the formation of identifiers and the syntax of control 
statements. 

MISSING NAME CARD 

The first card of either an external procedure or an ex- 
ternal statement was not a name card. 
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UNDEFINED LABEL -£ 

The label £ was not defined within the symbolic pro- 
gram. Only the first five characters of £ will be printed 
if it was an identifier. An integer is printed in its entirety. 

PREFIX PROCEDURE NOT DEFINED 

The procedure used as a prefix on an equivalence card 
was not declared within the symbolic program. 

MISSING FINISH PSEUDO-OP 

The machine-language deck of an external program was 
not terminated by a pseudo-operation for FINISH. 

MISSING FINISH CARD 

The FINISH card required after the last machine- 
language deck was not present. 

MISSING FIELD ON HEADER CARD 

A name card or equivalence card of an external program 
was incorrect. 

THE MONITOR DECLARATION 

At the programer's option, the compiler may be directed 
to produce on the line printer the results of assign- 
ment statements executed at object time. The MON- 
ITOR declaration specifies the particular variables to 
be monitored. 

General Form: 

MONITOR 9n£ 

where Dlt£ is a monitor list which contains identifiers 
separated by commas. The monitor list may be enclosed 
in parentheses if desired. These identifiers specify the 
variables to be monitored. Specifically, the monitor list 
may consist of: 

Names of simple variables; 

Names of arrays (optionally followed by a pair of pa- 
rentheses) ; 

Names of procedures (optionally followed by a pair of 
parentheses) ; and 

Statement, subroutine, or segment labels. 

Names of simple variables or arrays specify that the 
compiler is to print the result of any assignment state- 
ment which assigns a new value to the listed simple vari- 
able or variable with subscripts. Names of procedures or 
labels of statements, subroutines, or segments specify 
portions of the compiled program. Any assignment state- 
ment within the named portion is monitored, regardless 
of whether the identifier on the left side of the assignment 
statement had been specifically named in the monitor list. 

Whenever an assignment statement is monitored, the 
computer will print the first five characters of the iden- 
tifiers which have been assigned, followed by the value 
currently computed for those identifiers. In the case of 



a variable with subscripts, the current values of the sub- 
scripts are not shown. The particular element of the 
array being monitored should be determined by moni- 
toring the subscripts themselves. 

Example : 

MONITORK,L,A(,), VECTOR 

This declaration mi^ht cause the 'printout : 



K 


0000000001 




L 


0000000001 




A 


.3794284100, 


00 


L 


0000000002 




A 


.1230000000, 


04 


L 


0000000003 




A 


.9347281800,- 


-01 


VECTO = 


0000000064 





MONITOR declarations must precede all statements 
of the symbolic program. Depressing program control 
SWITCH will inhibit the monitoring action at run time. 

Symbolic Memory Printout 

Whenever a MONITOR declaration appears in a pro- 
gram, the compiler provides for a symbolic storage 
dump of the portion of memory reserved for the storage 
of variables, as well as for the monitoring just described. 

The LINE PRINTER produccs this fisting under the 
headings : 

VARIABLE IN PROGRAM VALUE 

The label message appears as 

LAST LABEL PASSED WAS £ 

followed by a listing under the headings : 

NUMBER OF TIMES EXECUTED 



LABEL IN PROGRAM 



If a program contains a MONITOR declaration, a 
storage printout can be obtained when the program 
stops by depressing the reset-transfer switch. De- 
pressing the start switch after the printout resumes 
computation. 

If the programer desires to use the storage printout 
feature without monitoring either specific variables or 
portions of the program, he may write as the first state- 
ment of his program the MONITOR declaration, omit- 
ting the monitor list. 

Statement Monitoring at Ob|ect Time 

Provision has been made to allow the programer to 
monitor the control sequence of labeled statements and 
to obtain a symbolic memory dump at specified points 
within the program during the running of the object pro- 
gram. This is accomplished with the use of statement 
monitoring control cards which immediately precede 
the data cards (see Appendix A, Operating Instructions). 
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These cards have the form : 



COLUMNS 


CONTENTS 


1 


5 


2-80 


MONITOR £ 



where £ is the Ust comprised of the names of labels, or 
names of labels followed by a parenthesized number, 
each separated by commas. 

Example : 

MONITOR F,BIG(50),START{1); 

If the statement monitoring command precedes the data 
for a given symbolic program, the first five characters of 
every label of every labeled statement will be printed 
out on the line printer as the statement is encoun- 
tered. Also, if the name of some label appears in the list, 
then a symbolic memory dump will occur on the line 
printer immediately before every execution of that 
statement or only on the nth time the statement is en- 
countered if it is followed by the number n in paren- 
theses. Thus, in the previous example, as every labeled 
statement is encountered, the first five characters of its 
name are printed on the line printer; in addition, 
every time the label F, the 50th time the label BIG, and 
the first time the label START is encountered, a sym- 
bolic memory dump will be given on the line printer. 

ERROR MESSAGES FROM LIBRARY PROCEDURES 

Errors in library procedures which occur are indicated 
by error messages on the line printer. In the follow- 
ing, (P is the name of the procedure in which the error 
occurred, £ is the first five characters of the label of the 
last labeled statement passed in the program, and nnnn 
is the number of times this statement has been executed. 
(However, if the identifier for £ is an integer, it will be 
printed in its entirety.) An error message will always 
contain the first portion of the message, e.g., 

RESULT OUT OF RANGE IN (P 

If a MONITOR statement has been given, the message 
will also contain £{nnnn). Note that the error produced 
may have occurred in an unlabeled statement, exe- 
cuted after the last labeled statement was passed. 

RESULT OUT OF RANGE IN (P -£ (nnnn) 

Fixed Point Result \R\ > W^ 

Floating Point \R\ > 0.99999999 X W^ 

RESULT UNDEFINED FOR (P -£ (nnnn) 

An attempt has been made to determine log x for x 
< 0; to determine i^ —x, etc. 



ARITHMETIC OVERFLOW (P -£ (nnnn) 

In some statement previous to the execution of £, an 
attempt has been made to divide by zero; or to deter- 
mine one of the following : 



Fixed Point R = 

Floating Point R = 

Floating Point R = 

Floating Point R = 



«! + a^2 I > 1010 
xi ± a;2 I > 0.99999999 X 10^^ 
xi' X2\ > 0.99999999 X 10« 
x,/x2\> 0.99999999 X 10« 



RESULT ILL-DEFINED FOR (P -£ {nnnn) 

An attempt has been made to determine sin a- for | a; | > 
10^ etc. 



LISTING OF THE COMPILED PROGRAM 

The programer can obtain a machine-language listing of 
the program being compiled by depressing program 
control switch 2 at compiling time. The use of this 
feature reduces compiling speed to approximately one- 
third of normal. This feature has been included as a 
diagnostic technique for use only when other methods 
have been exhausted. 

In addition to the usual listing of the symbolic program 
on the line printer, the use of this feature produces 
output of the form : T B A L llll s bbbb pp aaaa 

where 

T is the type of line (see below) ; 

B A L are relocation-control digits for the 

6666 aaaa, and llll fields respectively; 

llll is the location associated with this line ; 

and 

s bbbb pp aaaa is a machine-language word. 

The storage allotted for the object program is divided 
into two portions, either of which can be relocated in- 
dependently. One of these portions consists of those 
cells which are allotted to simple and array variables, 
constants, and temporary storage. The other portion 
consists of those cells which contain the actual instruc- 
tions produced by the compiler and by the machine- 
language procedures. 

The control field 6666, the address field aaaa, and the 
location //// may each be relocated relative to either por- 
tion of storage, or may be specified as being absolute. 
The relocation digits 0, 1, and 2 specify that a field is to 
be absolute, relative to the variable region, or relative 
to the instruction region respectively. 

The relocation constant for the instructions is 0000. The 
relocation constant for the variables is printed out at 
the end of compilation, as described on page A-1. 

If the indicator T for the type of line is zero, the entire 
word will be stored in the cell in relative position ////; 
if T is one, only the address portion will be stored. This 
is the technique used to provide references to labels, the 
relative locations of which are not yet known when they 
are referred to in the symbolic program. 
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HARMONIC-BOUNDARY VALUES 

SURVEY TRAVERSE CALCULATIONS 

OPTICAL RAY-TRACING 

HOUSEHOLDER REDUCTION 

CROUT'S METHOD 



XI... 



programs in algol 



THE OVER- ALL ORGANIZATION of programs written in 
this representation of algol is a matter which the 
rules leave largely to the preference of the individual 
programer. However, there are rules of precedence 
which must be observed regarding the interrelations 
among certain declarations and statements. Below is a 
summary of such rules, arranged in the form of a sug- 
gested program outline. 

MONITOR declaration — appears only if one or more 
variables or statements are to be monitored, or if the 
programer wishes to provide for the possibility of a 
memory dump (see page 10-3) ; it must be the first de- 
claration (other than a COMMENT declaration) of the 
symbolic program. 

Declarations of type — declare the types of any identi- 
fiers which are not floating-point (see Chapter V) ; they 
must precede use of the identifier in a statement. 

ARRAY declarations — reserve storage for multidimen- 
sional arrays of data; they must precede use of any 
variable which is an element of an array. 

PROCEDURE and FUNCTION declarations (sym- 
bolic and external) — make specific subprograms avail- 
able to the compiler; they must appear prior to the first 
use of the subprograms. 

Operational statements — Assignment statements and 
control statements. 

INPUT and OUTPUT declarations — may appear any- 
where in the symbolic program. 

FORMAT declarations — may appear anywhere in the 
symbolic program. 

FINISH declaration — must appear at the end of the 
symbolic program. 



Machine-language programs — may be used in con- 
junction with a symbolic program. The latter must 
contain definitions of all the machine-language pro- 
grams so used. These programs are included after the 
FINISH declaration of the symbolic program, and must 
themselves be terminated by a second FINISH state- 
ment. 

COMMENT declarations — affect neither the compi- 
lation nor the object program, and may appear any- 
where. 

EXAMPLES OF PROGRAMS 

The following complete programs are presented as illus- 
trations of the rules delineated in this manual. 

J. G. Herriot, of Stanford University, has written the 
following program to determine an approximation of 
harmonic-boundary values, using orthonormal func- 
tions. 

COMMENT THIS PROGRAM FIRST CONSTRUCTS A SET OF 
ORTHONORMAL FUNCTIONS AND THEN USES THEM TO 
FIND AN APPROXIMATION TO THE SOLUTION OF A 
HARMONIC BOUNDARY-VALUE PROBLEM; 

COMMENT WE FIRST CONSTRUCT THE ORTHONORMAL 
FUNCTIONS; 

INTEGERIJ.K, L, M, N, NU,TH; 

ARRAY R(29), HFN(29), DSUM(24), HFCN(5), HFCEN(6), 
FA(25,25), A{25,25), B(25,25), HA(47), HAA{24); 

INPUT DATA (FOR I = (1,1,29); Rd)), DIMEN(N); 

OUTPUT FRESULTS (FOR I = (1,1,N); FOR J = (1,1,N); FA(I,J)), 
ARESULTS (FOR I = (1,1,N); FOR J = (1,1,N); A{I,J)), 
BRESULTS (FOR I = (1,1,N); FOR J = (1,1,N); B(I,J)), 
COEFFS (FOR NU = (4,4,N - 1); HA (2NU - 1)), 
HFNRES (FOR K = (1,1,29); HFN(K)), 

CRES{CONST), HFCNRES (TH, FOR K = (1,1,5); HFNC(K)), 
HFCENRES (TH, FOR K = (1,1,6); HFCEN(K)); 
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FORMAT VECTOR (B8,6F16.8,W0), 
FTITLE(B48*FRESULTS,FA(I,J)*,W3,W2), 
ATITLE(B48*ARESULTS,A{I,J)*,W3,W2), 
COEFTITLE (B30*HA(8NU - 1)*,W2), 
BDYVALUES(B42*PRELIMINARY BOUNDARY VALUES*, W3, 

W2), 
CBDYVALUES (B43 *CORRECTED BOUNDARY VALUES*,W2), 
CONTITLE (B50 *C0NSTANT*,W2), 
TABLE (B8,I2,B6,6F16.8,W0), 
TABLEHEAD (B40, *THE VALUES OF H(RHO JH) IN B*, W3, 

W2), 
TABLELINE(B13*RHO*,B6*0.5*,B13*1.0*,B13*1.5*,B13, 
*2.0*,B13*2.5*,B13*3.0*,W0), 
TABLETH (B8*TH*,W0); 

START..READ (;;DATA); RDIM..READ {;;DIIVIEN); 
F0RI = (1,1,N);F0RJ = (I,4,N); 

BEGINL = I - J;K=:|+J; 
SUM = R (1)*K + 1.5.R(18)*K.COS{0.59341195.L) 

+ 0.5.R(29)*K.COS(0.78539816.L); 
FORM = (2,1,17); 

SUM = SUM + 2.0.R(M)*K.COS((M - 1).0.034906585.L); 
FORM = (19,1,28); 
SUM = SUM + R(M)*K.COS({0.59341195 + (M - 18) 

.0.017453293)1); 
FA(I,J) = (8.0/K).0.017453293.SUM END; 

WRITE (;;FTITLE); 

WRITE (;;FRESULTS, VECTOR); 
F0RJ = (1,1,N);B(1,J) = FA(1,J); 
F0Ri = (2,l,N); 
BEGIN FOR J = (1,1,1 - 1); 
B(I,J) = -B(J,I)/B(J,J); 
FOR J = (I,1,N); 

BEGIN B(I,J) = FA(I,J); 
FORK = (1,1,1 - 1); 
B{I,J) = B(I,J) + B(I,K).B(K,J)END; 
FOR J = (1,1,1 - 1); 

B(I,J) = B(I,J).SQRT(B(J,J)/B(I,I))END; 

FORI = (1,1,N);B(I,I) = 1.0/(SQRT(B(I,I)).I); 

WRITE (;;BTITLE); 

WRITE (;;BRESULTS, VECTOR); 

FOR I = (1,1,N); FOR J = (1,1,N); A(I,J) = 0; 
A(1,1) = B(1,1); 

F0RI = (2,1,N); 
BEGIN FOR J = (1,1,1 - 1); 

BEGIN A(l,J) = 0; 
F0RK = (J,1,I - 1); 
A(I,J) = A(I,J) + B(I,K).A(K,J)END; 
A(I,I) = B(I,I) END; WRITE (;;ATITLE); 
WRITE (;;ARESULTS, VECTOR); 
COMMENT NOW CONSTRUCT THE APPROXIMATION TO 
THE SOLUTION; 
F0RJ = (4,4,N - 1); 
BEGIN DSUM(J) = 0; 



FORM = (1,1,17), 
DSUM(J) = DSUM(J) + (R(M)*2 + R(M + 1)*2). 
(R(M + 1)*J.SIN(M.0.034906585.J) 
-R(M)*J.SIN((M - 1).0.034906585.J)); 
FORM = (18,1,28); 

DSUM(J) = DSUM(J) + (R(M)*2 + R(M + 1)*2.(R(M + 1) 
*J.SIN((0.59341195 + (M - 17).0.017453293).J) 
- R(M)*J.SIN((0.59341195 + (M - 18).0.017453293) 
.J)) END; 
FOR NU = (4,4,N - 1); BEGIN HA(2NU - 1) = 0; 
F0RJ = (4,4,NU); 

HA(2NU - 1) = HA(2NU - 1) + A(NU,J).DSUM(J); 
HA(2NU - 1) = 4.0.HA(2NU - 1) END; 
WRITE(;;COEFTITLE); 
WRITE (;;COEFFS, VECTOR); 
FORJ = (4,4,N - 1); BEGIN HAA(J) = 0; 

F0RNU = (J,4,N - 1); 
HAA(J) = HAA(J) + HA(2NU - 1).A(NU,J) END; 
FORM = (1,1,18); BEGIN HFN(M) = 0; 
FORJ = (4,4,N - 1); 

HFN(M) = HFN(M) + HAA(J).R(M)*J.COS((M - 1) 
.0.034906585.J) END; 
FORM = (19,1,29); BEGIN HFN(M) = 0; 
F0RJ = (4,4,N - 1); 
HFN(M) = HFN(M) + HAA(J).R(M)*J.COS((0.59341195 
+ (M - 18).0.017453293).J)END; 
WRITE (;;BDYVALUES); 
WRITE (;;HFNRES, VECTOR); 
AVT = 0; 

FOR M = (1,1,29); AVT = AVT + R(M)*2 - HFN(M); 
CONST = AVT/29.0; WRITE (;;CONTITLE); 
WRITE (;;CRES, VECTOR); 
FOR M = (1,1,29); HFN(M) = CONST + HFN(M); 
WRITE (;;CBDYVALUES); 
WRITE (;;HFNRES, VECTOR); 
FOR I = (1,1,5); BEGIN TH = 5.(1 - 1); 

FOR J = (1,1,5); 
BEGIN HFCN(J) = CONST; 
F0RM = (4,4,N - 1); 
HFCN(J) = HFCN(J) + HAA(M).(0.5.J)*M. 
COS((l - 1).0.087266463.M)END; 
WRITE(;;TABLEHEAD); 
WRITE(;;TABLELINE); 
WRITE(;;TABLETH); 
WRITE (;;HFCNRES, TABLE) END; 
FOR I = (6,1,10); BEGIN TH = 5.(1 - 1); 

FOR J = (1,1,6); 
BEGIN HFCEN(J) = CONST; 
FORM = (4,4,N - 1); 
HFCEN(J) = HFCEN(J) + HAA(M).(0.5.J)*M.COS((I - 1) 

.0.087266463.M)END; 
WRITE (;;HFCENRES, TABLE) END; 
STOP 1234; 
GOTORDIM; 
FINISH; 
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The program which follows is one for survey traverse 
calculations. 

COIV.iyiENT SURVEY TRAVERSE CALCULATIONS; 
INTEGER I, J, K, SURVEY, D(), M(), S(), Q(), N; 
FUNCTION LENGTH(X,Y) = SQRT(X*2 + Y*2); 
ARRAY D(200),IVI(200), S(2G0), Q(200), IViD(200), NS(200), 

EW(200), CNS(201), CEW(201); 

START.. READ (;;IDENT); TMD = 0; TNS = 0; TEW = 0; 
F0RI = (1,1,N);BEGIN 
READ (;;STATION); IF I NEQ K; STOP K; 
Z = (60(60D(l) + IVI(l)) + S(l))/6.48**5; 
SWITCH Q(l), (QUADl, QUAD2, QUADS, QUAD4); 
QUAD!.. Z = 0.5 - Z; GO TO ANGLE; 
QUAD2.. Z = 1.5 + Z;G0T0ANGLE; 
QUAD3.. Z = 0.5 + Z;GOTOANGLE; 
QUAD4.. Z = 1.5-Z; 
ANGLE.. ALPHA = 3.1415927Z; 
NS(I) = IViD(l)SIN{ALPHA); TNS = TNS + NS{I); 
EW(I) = IVID(l)COS(ALPHA); TEW = TEW + EW(I); 
TIVID = TIVID + IV1D(I)END; 
ERROR = LENGTH (TNS, TEW); WRITE (;;TITLE, Fl); 
NSC = -TNS/TMD; EWCF = -TEW/TIVID; TCD = 0; 

TCNS = 0;TCEW = 0; 
F0RI = (1,1,N);BEGIN 

CNS(I) = NS(I) + IV1D{I).NSCF; TONS = TONS + CNS(I); 
CEW(I) = EW{I) + MDdl.EWCF; TCEW = TCEW + CEW(I); 
CD = LENGTHICNSd), CEW(I)); TCD = TCD + CD; 
WRITE (;;ANSWERS,F?) FND; 

CNS(N + 1) = CNS{1);'CEW(N + 1) = CEW(l); SUM = 0; 
FOR I = (1,1,N); SUM = SUM + (CNS{I + 1) - CNS(I)) 

(CEW(I + 1) + CEW(I)); 
SQFT = ABS(SUM)/2; ACRES = SQFT/43560; 
WRITE {;;TOTALS, F3); GO TO START; 
INPUT IDENT(SURVEY, N), STATION(K,D(l), M(K), S(l), 

Q(I),MD{I)); 
OUTPUT TITLEISURVEY, N, ERROR), 
ANSWERS (I, D(l), M(l), S(l), Q(l), MD{I), CD, CNS(I), CEW(I)), 
TOTALS (TMD, TCD, TONS, TCEW, SQFT, ACRES); 
FORMAT F1(*SURVEY*, 18, 85, *NUMBER OF LEGS*, 15, 

♦CLOSURE ERROR*, X9.2, Wl, *LEG*, B 
5, *ANGLE*, B7, *MEASURED*, B5, *CORRECTED*, B3, 

*NORTH-SOUTH EAST-WEST*, W6, *N0. DD 
MM SS Q DISTANCE DISTANCE DISPLACEMENT 

DISPLACEMENT*, 2W), F2,(I3, 15, 213, 12, 4X13.2, W), 
F3(B6, *TOTALS*, B4, 4X13.2,W4, *AREA OF TRAVERSE*, 

X13.2,*SQUARE FEET*, 
X13.2,*ACRES*,W6); 
FINISH; 

123456 4 

1 45 0130 2 1000.00 

2 4613 24 4 2003.69 

3 43 12 02 3 995.28 

4 45 2517 1 2001.64 



The following program for optical ray-tracing was writ- 
ten by R. Mitchell. 
COMMENT OPTICAL TRACE PROGRAM, R. F. MITCHELL, 

VIDYAl; 
INTEGER M,J,K,JA,JB; 
ARRAY A(4),B(4),C(4); 
A(l) = -260.0; A(3) = -600.0; A(4) = 0.0; 
ARRAYG(6) = (25.0,50.0,75.0,100.0,125.0,150.0); 
C(l) = 1.0; C(2) = 3.436; C(3) = l.'o; C(4) = -1.0; 
B(2) = 339.75; B(3) = 1.0; B(4) = 0.0; 
ARRAY Bl(6) = (5.5,5.75,6.0,6.25,6.75,7.0); 
FOR JB = (1,1,6); BEGIN B(1) = B1(JB); 
A(2) = A(l) - B1(JB)(1.0 - 1.0/C(2).C(2)); 
WRITE (; ;PARAM,F6); 

OUTPUT PARAM (FOR K = (1,1,4); (A(K),B(K),C(K))); 
FORMAT F6(W3,11(3F20.8,W4)); 
FORM = (1,1,6); BEGIN Hi = G(M); 
WRITE (; ;GVALU,F1); 
OUTPUT GVALU(Hl); 
FORMAT Fl (B10,*G*,X20.8,W6); 
SUMD = 0.0;E = 0.0;P = H1; 
FORJ = (1,1,3); BEGIN 
R1 = P/A(J); 

ir MDoiKii uiK U.3D; uu lurrdiNi, 
I = ARCSIN(R1); 
R2 = R1. C(J)/C(J + 1); 
IFABS(R2)GTR0.95;GOTOPRINT; 
IP = ARCSIN(R2); 
E = E+I - IP; 
H2 - A(J + 1)S!N(E + I); 
R3 = SIN(E);' 
IFR3 = SIN(E); 
IFR3EQL0.0;R3 = 1.0**-20; 
DL = (H2- Hl)/R3; 
DU = DL.C(J + 1); 
SUMD = SUMD + DU; 
H1 = H2; 
WRITE(;;EDH,F2); 
OUTPUT EDH(E,DU,H1); 

FORMAT F2(B5,*E*,X15.8,B10,*D*,X15.8,B10,*H*,X15.8,W4) ; 
IF (PCS(l)); BEGIN 
WRITE (;;ALL,F5); 

OUTPUT ALL(R1,R2,I,IP,E,H2,R3,DL,DU,P); 
FORMAT F5(2(5F12.5,W4)) END; 
P = A(J).R2 - R3(A(J + 1) - A(J) + B{J)) END; 
L = A(3)(1.0 + R2/R3); 
SUMD = SUMD - DU; 
WRITE (;;LSUMD,F3); 
OUTPUT LSUMD(L,SUMD); 
FORMAT F3(B10,*L*,X20.8,B10,*SUMD*,X20.8,W6,W4) END 

END; STOP; 
PRINT..WRITE(;;ERROR,F); 
OUTPUT ERR0R(R1,R2,A(J),C(J + 1),P); 
FORMAT F(*R1*,X9.4,B4,*R2*,X9.4,B4,*A*,X9.4,B4,*C*,X9.6, 

B4,*P*,X9.4,W1); 
STOP; FINISH; 
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The short program which follows is for a reduction of a 
square matrix to tridiagonal form, using the method of 
Householder. 

COMMENT HOUSEHOLDER REDUCTION TO TRIDIAGONAL 

FORM; 
INTEGER I, J, K, L, R, N; ARRAY A (50,50), X(50), P(50); 
N = 5; 
IN.. READ(;;ELEMENT); IF I NEQ 0; BEGIN A{I,J) = Q; 

GO TO IN END; 
FOR R = (1,1,N - 1); BEGIN WRITE {;;AOUT, AF); L = R + 1; 
S = 0;FORJ = {L,1,N);S = S + A(R,J)*2; 

S = SIGN (A(R,L))/2SQRT(S); 
WRITE (;;BOUT,BF); 
X(L} = SQRT(0.5 + A(R,L).S); S = S/X(L); 
F0RJ = (R + 2,1,N);X{J) = S.A(R,J); 
FOR J = (R,1,N); BEGIN S = 0; FOR K = (L,1,N); 
S = S + A{MIN{J,K), MAX(J,K)).X(K); P(J) = S END; 
S = 0;FORJ = (L,1,N);S = S + K(J).P(J); 
F0RJ = (L,1,N);P(J) = P(J)-S.X(J); 
FOR J = (L,1,N); FOR K = (J,1,N); A(J,K) = A(J,K) - 2(X(J). 

P(K) + X(K).P(J))END; 
WRITE (;;AOUT, AF); STOP; GO TO IN; 
INPUT ELEMENT (I,J,Q); OUTPUT AOUT {A(R,R)), 

BOUT(-0.5/S); 
FORMAT AF(B10, X10.5, W), BF(B40, X10.5,W); 
FINISH; 



The program below has been written by G. Forsythe, 
of Stanford University. It solves a set of linear equa- 
tions of the form Ay = B, using Grout's method with 
interchanges, 

COMMENT FORSYTHE PROGRAM; 
PROCEDURE PRODUCT (;N,A(),P,E); 
BEGIN 

COMMENT THIS FORMS THE PRODUCT OF ARBITRARY FLOAT- 
ING NUMBERS A(l), 

FOR I = {1,1,N). EXPONENT OVERFLOW OR UNDERFLOW IS 

PREVENTED. THE ANSWER IS P TIMES 10*E, WHERE E IS 

IF POSSIBLE. IF E NEQ 0, THEN WE NORMALIZE P SO THAT 

0.1LEQABS(P)LSS1.0; 
INTEGERE, F, I, K, N; 
Q = 1.0**-10;F = 10; 
F0RI = (1,1,N); 
BEGIN IFA(l)EQL0.0; 

BEGIN P:= 0.0; E = 0; RETURN END; 

IFABS(A(I))LEQ1.0; 

BEGIN F = F - 20; Q = Q.(10.0*20) END; 

Q = Q.A(I);X = ABS(Q); 

FOR K = (-10,1,10), (-11, -1, -41), (11,1,41); 

IF ( (10.0*K LEQ X) AND (X LSS 10.0*(K + 1) ) ); 
BEGIN Q = Q.(10.0*(-10 - K) ); F = F + K + 10; GO TO 1 

END; 
1.. END; 



IF (( (-40) LEQ F) AND (F LEQ 58)); 

BEGIN P = (Q.(10.0*9) ).(10.0*(F - 9) ); E = 0; RETURN 
END; 

P = Q.(10.0*9); E = F - 9; RETURN END PRODUCT ( ); 
PROCEDURE INNERPRODUCT (S,F,U( ), V( ) ); 
BEGIN COMMENT THIS FORMS THE INNER PRODUCT OF THE 
VECTORS U{l) AND V(l) FOR I = (S,1,F); 

INTEGER I, S,F; SUM = 0.0; 

F0RI = (S,1,F);SUM = SUM + U(I).V(I); 

INNERPRODUCT( ) = SUM; RETURN END INNERPRODUCTO; 
PROCEDURE CR0UT4(;N, A(,), B( ), Y( ), PIVOT( ), DET, EX7; 
SINGULAR, IPO); 

BEGIN COMMENT THIS IS GROUTS METHOD WITH INTE- 
CHANGES, TO SOLVE AY = B AND OBTAIN THE TRIANGULAR 
DECOMPOSITION. IP( ) STANDS FOR AN INNER PRODUCT 
ROUTINE THAT MUST BE AVAILABLE WHEN CR0UT4( ) IS 
CALLED. ALSO, PRODUCT ( ) MUST BE AVAILABLE. THE 
DETERMINANT OF A IS COMPUTED IN THE FORM DET TIMES 
10*EX7, WHERE EX7 IS IF POSSIBLE. IF EX7 NEQ 0, THEN 
WE NORMALIZE DET WITH 0.1 LEQ ABS(DET) LSS 1 ; 
INTEGER K, I, J, IMAX, N, PIVOT; INTEGER EX7; INT = 1.0; 
F0RK = (1,1,N); 
BEGIN TEMP = 0; FOR I = (K,1,N); 

BEGIN A(I,K) = A(I,K) - IP(1, K - 1, A(l, ), A( ,K) ); 

IFABS(A(I,K))GTRTEMP; 

BEGIN TEMP = ABS(A{I,K) ); IMAX = I END END; 

PIVOT(K) = IMAX; 
COMMENT WE HAVE FOUND THAT A(IMAX,K) IS THE LARGEST 
PIVOT IN COL K. NOW WE INTERCHANGE ROWS K AND IMAX; 
IF IMAX NEQ K; BEGIN INT = -INT; FOR J = (1,1,N); 

BEGIN TEMP = A{K,J); A(K,J) = A{IMAX,J); 

A(IMAX,J) = TEMP END; 

TEMP = B(K); B(K) = B(IMAX); B(IMAX) = TEMP END; 
COMMENT NOW FOR THE ELIMINATION ; 
IFA(K,K)EQLO.O; 
BEGIN DET = 0.0; EX7 = 0; GO TO SINGULAR END; 

F0RI = (K + 1,1,N); 

BEGIN XX = A(I,K); XY = A(K,K); X = 1.0; X = X.X; 
A(I,K) = XX/XYEND; 

FOR J = (K + 1,1,N); A(K,J) = A(K,J) - IP(1, K - 1, A(K,), 
A(,J)); 

B(K) = B(K)-IP(1, K-1,A(K,),B())END; 

F0RI = (1,1,N);Y{I) = A(I,I); 

PRODUCT (; N, Y( ), DET, EX7); DET = INT. DET; 
COMMENT NOW FOR THE BACK SUBSTITUTION ; 
F0RK = (N,-1,1); 
BEGIN XX = B(K) - IP(K + 1, N, A(K,), Y( ) ); XY = A(K,K); 

X = 1.0; X = X.X; Y(K) = XX/XY END; RETURN END CR0UT4 

(); 

PROCEDURE S0LV2(; N, B(,), C( ), PIVOT( ), Z( ); IP( ) ); 

BEGIN 

COMMENT IT IS ASSUMED THAT A MATRIX A HAS ALREADY 

BEEN TRANSFORMED INTO B BY CROUT, BUT THAT A NEW 

COLUMN C HAS NOT BEEN PROCESSED. S0LV2( ) SOLVES 

THE SYSTEM BZ = C. AN INNERPRODUCT PROCEDURE MUST 

BE USED WITH S0LV2(); 
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INTEGERK,N, PIVOT; 

F0RK = (1,1,N); 

BEGIN TEMP = C(PIVOT(K) ); C(PIVOT(K) ) = C(K); 

C(K) = TEMP: C(K) = C(K) - IPd. K - 1. B(K,), C{ ) ): 
END; 

FOR K = (N, -1, 1); Z(K) = (C(K) - IP(K + 1, N, B{K,), 
Z()))/B(K,K); 

RETURN END S0LV2(); 
COMMENT FORSYTHE TEST GROUT USi69 EXT 2274; 
FORMAT FRMTFKWO, {6F19.8, WO) ); 
FORMAT FRMTFX(WO, (6119, WO)); 
INTEGER PIVOT ( ); INTEGER EX; INTEGER IJ, N; 
ARRAY A(70,70), B(70), Y(70), 0(70), PIVOT(70); 
INPUT DATA(N, FOR I = (1,1,N); (FOR J = (1,1,N); A(I,J), 

B(l))); 
INPUT VECTOR{N, FOR I = (1,1,N); 0(1) ); 
START.. READ(; ; DATA); READ(; ; VECTOR); OUTPUT ORDER 

(N); 
OUTPUT DATAO (FOR I = (1,1,N); (FOR J = (1,1,N); A(I,J), 

B(l))); 
OUTPUT VECTORO (FOR I = (1,1,N); C(l) ); 



WRITE (; ; ORDER, FRMTFX); 

WRITE (; ; DATAO, FRMTFL); 

WRITE (; ; ORDER, FRMTFX); 

WRITE (; ; VECTORO, FRMTFL); 

CR0UT4 (; N, A(,), B( ), Y( ), PIVOT( ), DET, EX; 

SINGULAR, INNERPRODUCTO); 
WRITE (;; DATAO, FRMTFL); 
OUTPUT ANSWER (FOR I = (1,1,N); Y(l) ); 
OUTPUT PIVOTO (N, FOR I = (1,1,N); PIVOT (I) ); 
OUTPUT DETO (DET); 
OUTPUT EXPO (EX); 
WRITE (; ; PIVOTO, FRMTFX); 
WRITE (;; ANSWER, FRMTFL); 
WRITE (; ; DETO, FRMTFL); 
WRITE (; ; EXPO, FRMTFX); 

S0LV2 (; N, A(,), C( ), PIVOT( ), Y( ); !NNERPRODUCT{ ) ); 
WRITE (; ; VECTORO, FRMTFL); 
WRITE (;; ANSWER, FRMTFL); 
GO TO START; SINGULAR..WRITE (; ; FRMTSI); 
FORMAT FRMTSI (WO, *SINGULAR*, WO); GO TO START; 
FINISH; 
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instructions 



THIS APPENDIX CONTAINS the information required 
for the maintenance and operation of the compiler. 
It is assumed that the user is in possession of the mag- 
netic-tape reel containing the compiler, and of the card 
decks containing the following routines: compiler call- 
out, COMPILED PROGRAM CALLOUT, DUMP CALLOUT, 
COMPILER DUPLICATION CALLOUT, and LIBRARY PROC- 
ESSOR CALLOUT. 

The compiler system is contained on a reel of magnetic 
tape which is to be mounted on tape storage unit 2 
whenever it is used. This tape contains the compiler 
routine proper, the libarary routines, and a collection of 
routines which should be useful in maintaining the 
compiler and compiled programs. 

For the most part, the compiler system is controlled by 
means of decks of cards which load the desired routines 
from the compiler tape and then transfer control to 
these routines. These decks are termed 'callout decks.' 
Any callout deck is read by placing it in the card rea- 
der (input unit 1) and executing a CARD READ 
command: 1000 60 xxxx. (The address xxxx is irrele- 
vant.) These decks need no blank cards preceding or 
following them except as specifically noted below. 

Preparation of Symbolic Decks 

Decks of symbolic compiler language are punched with 
the digit two in column 1 of each card. The state- 
ments to be compiled occupy columns 2 through 72. 

The symbolic deck is constructed by assembling the fol- 
lowing card deck : 

First: The compiler callout deck; 

Second: The algol statements; 

Third: External machine-language programs (if any) ; 



Fourth: statement monitoring control cards (if 
any ; see Chapter X, Diagnostic Facilities) ; 

Fifth: Input data cards (if any), and 

Sixth: Two blank cards, or any number of 'reject' 
cards (i.e., cards with the digit seven punched 
in column 1). 

Compiling a Program 

Mount a scratch tape which has been preblocked into 
100-word blocks on both lanes, designate the tape unit 

__ '1 ' J _i Ij. ;_ ,-._, . _j-_i r»i J.I- _ i._i*_ 

as X, txiiu. piauc it iii wmiJCi OLatuo. r lauc tiic syiiiuuinj 

deck (as described above) in the card reader and exe- 
cute a CRD (0 1000 60 xxxx). The compiler will read 
cards and produce a copy of them on the line printer 
(output unit 2) along with any error messages result- 
ing from the compilation. Meanwhile, the compiled pro- 
gram is written on the tape on tape storage unit 1. 
After compilation is complete, the following two mes- 
sages are produced on the line printer: 

COMPILED PROGRAM ENDS AT mmmm 
NEXT AVAILABLE CELL IS nnnn 

where mmmm and nnnn are absolute addresses. The 
variables for the program are stored in memory between 
the end of the compiled program (mmmm) and the next 
available cell (nnnn). 

In addition to the above cell-count message, the A 
register will display either : 

K (0757 00 7250) 

provided that no error messages were produced, or 

X X (0525 00 5250) 

in the event that the compiler detected errors. 

If the compilation has been properly completed, depres- 
sing the start switch will load and execute the program. 
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Operation of the FINISH Statement 

When the compiler encounters the FINISH declaration, 
it writes a HALT instruction followed by a CARD 
READ instruction at the end of the object-language 
program, adds the library procedures and then stops 
compilation. Depressing the start key then initiates 
execution of the object program. Upon completion of 
this object-language program, pressing the start key 
executes the CARD READ instruction, as the first 
step in the compilation of another card deck. 

If the programer wishes to avoid this sequence of 
events, he should precede the FINISH declaration in 
his symbolic program with a STOP statement, followed 
by a statement which transfers control back to the 
desired point in his program. (See Chapter VI.) 

Deferred Execution of a Compiler Program 

If desired, the magnetic tape containing the compiled 
program may be remounted on tape storage unit 1 at 
some later time and the program loaded and run. This is 
accomplished by placing the deck composed of: 

First: The compiled program callout cards; 
Second: statement monitoring control cards (if 

any ; see Chapter X) ; 
Third: Input data (if any); and 
Fourth: Two blank cards, or any number of 'reject' 

cards (i.e., cards with the digit seven punched 

in column 1). 

Dumping a Compiled Program 

After a program has been checked out, the compiled 
program may be converted to cards by placing the deck 
marked dump callout in the card reader and execu- 
ting a CRD instruction. The program is punched (on 
output unit 1) with a suitable loader. The resulting 
deck, followed by any data cards, if required, and two 
blank cards, may be placed in the card reader and the 
program run by executing a CRD instruction. 

This facility is not available for compiled programs 
which have used the MONITOR or SEGMENT- 
OVERLAY features of the compiler. 

Duplicating the Compiler-System Tape 

It is occasionally desirable to duplicate the compiler 
tape. To do so, mount on tape storage unit 1 a tape 
which has been preblocked with at least 200 blocks of 
100 words each on the even lane, and place it in write 
status. Place the deck marked compiler duplication 
CALLOUT in the card reader and execute a CRD 
instruction. The compiler program, the service routines, 
and the entire library will be copied from tape storage 
UNIT 2 to tape storage unit 1, and the compiler will 
stop with 7777 00 7777 in the C register. Depressing the 
start button will cause a card to be read. 



Library Maintenance 

This section describes the method for placing library 
procedures on the compiler-system tape. The individual 
decks which make up the library procedures are de- 
scribed in detail in Appendix E, Construction of Ma- 
chine-Language Programs. 

Mount the compiler-system tape reel on tape storage 
UNIT 1, and place the unit in not write status. On 
TAPE storage unit 2, mouut a preblocked tape with 
at least 200 blocks of 100 words each on the even lane. 
Put the latter unit in write status. Place the deck 
marked library processor callout in the card read- 
er, followed by the desired library procedure decks, a 
card with the digit two in column 1, and the word 
FINISH punched on it, followed by two blank cards. 
Execute a CRD instruction. 

If the library processor detects an error, it. will produce 
one of the following error messages on the supervisory 
printer. 

INCORRECT PUNCTUATION 

The ',' on a name card, or the '=' on an equivalence 
card, was replaced by some other special character, or 
was missing. 

EQUIVALENCE NUMBER TOO LARGE 

More than two digits have been given. 

MISPLACED NAME CARD 

A second name card has appeared prior to the pseudo- 
operation for FINISH in the machine-language deck of 
the first. 

SEQUENCE ERROR 

The addresses of instructions in the machine-language 
deck being processed are not in the proper order. 

MISSING EQUIVALENT 

A machine-language instruction with a sign digit of five 
or six did not have an equivalence card to define its 
digits sL = 82. 

The computer will stop with rC displaying 7310 00 0137 
after any of the above errors. The processing must then 
be started over from the beginning. 

The message 

LIBRARY PROCESSING COMPLETE 

is typed out on the supervisory printer and the com- 
puter halts upon completion of updating the library. 
The new compiler tape on tape storage unit 2 will 
then have the processed decks in its library. Depressing 
the start key will execute a CRD instruction. The 
library processor routine replaces the entire library 
with a new one each time it is run. This is no inconveni- 
ence as even a large library requires only relatively 
small numbers of cards. 
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B 



list of reserved 
identifiers 



The list below includes all those identifiers to which the 
compiler attaches a fixed meaning. These identifiers have 
been mentioned separately throughout this manual, but 
are listed here for quick reference. A reserved identifier 
may not be used by the programer for any purpose other 
than its function as employed by the compiler, Ir^ addi- 
tion to this list, the names of all the functions in the library 
should be considered as reserved identifiers. 



ABS 
AND 
ARRAY 
BEGIN 



BOOLEAN 
COMMENT 
EITHER 
END 



ENTER 
EQIV 
EQL 
EXTERNAL 



FINISH 

FLOATING 

FOR 

FORMAT 

FUNCTION 

GEQ 

GO 

GTR 

IF 

IMPL 

INPUT 

INTEGER 



LEQ 

LSS 

MAX 

MIN 

MOD 

MONITOR 

NEQ 

NOT 

OR 

OTHERWISE 

OUTPUT 

OVERLAY 



PCS 

PROCEDURE 

REAL 

RETURN 

SEGMENT 

SIGN 

STATEMENT 

STOP 

SUBROUTINE 

SWITCH 

TO 

UNTIL 
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S^^ 







Cy^/^t/l^/> 



description of the 



FORM OF DEFINITIONS 

This appendix lists the syntactical definitions which are 
provided for reference purposes. While it is not the in- 
tent to express here every rule possible for the construc- 
tion of symbolic programs, these definitions should 



serve to answer many questions which arise concerning 
the language. 

The definitions given here are expressed in a notation 
which is particularly well suited for syntactical descrip- 
tion. A definition has the general form: 

Thing being defined ~ definition 

(the symbol ~ being read as has the form of). 

The symbols ( and ) are used as brackets which enclose 
a construction defined elsewhere. The symbol | is to be 
read as or. Other symbols represent themselves. 



For example, the definition: 

scale factor ~ **(integer constant) | 
**+<integer constant) | **- (integer constant) 

is to be interpreted as meaning: A scale factor con- 
sists of iv)o asterisks perhaps followed by a + or - sign 
and then followed by an integer constant. 

Syntactical definitions are recursive, that is, the defini- 
tion may be applied over and over again. For example, 

integer constant ~ (digit) | 

(integer constant) (integer constant) 

would indicate that an integer constant consists of a 
string of digits. 

It is impossible in these definitions to give the restric- 
tions on the definition. For the latter, it will be necessary 
to refer to the relevant portion of the text; e.g., an inte- 
ger is restricted to a maximum of ten digits (in this 
case, a result of the word length of the Burroughs 220), 



letter ~ A|BIC|D|E|F|G|H|I|J|K|L|M|N10|P|QlR|S|T|U|V|W|X|Y|z' 

digit ~ 0|112|3|415|6|7|8|9 

identifier ~ (letter) | (identifier) (letter) | (identifier) (digit) 

integer constant ~ (digit) | (integer constant) (integer constant) 

basic floating-point constant ~ (integer constant) . (integer constant) 

scale factor ~ **(integer constant) | **+(integer constant) | **- (integer constant) 

floating-point constant ~ 

(basic floating-point constant) j 

(basic floating-point constant) (scale factor) | 

(integer) (scale factor) 
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arithmetic constant ~ (integer constant) | (floating-point constant) 

Boolean constant ~ | 1 

constant ~ (arithmetic constant) | (Boolean constant) 

signed constant ~ 

(arithmetic constant) j + (arithmetic constant) 1 -(arithmetic constant) 
simple variable ~ (identifier) 

subscript list ~ (arithmetic expression) | (subscript list), (subscript list) 
variable with subscripts ~ (array identifier) ((subscript fist)) 
variable ~ (simple variable) | (variable with subscripts) 
arithmetic variable ~ (variable) 
Boolean variable ~ (variable) 
label ~ (identifier) | (integer) 

simple argument list ~ (expression) 1 (simple argument list), (simple argument fist) 
argument-subscript list ~ 

(empty) | 

(arithmetic expression) j 

(argument-subscript Ust), (argument-subscript fist) 

argument array ~ (array identifier) ((argument-subscript list)) 
input-argument list ~ 

(expression) j 

(argument array) | 

(input argument fist), (input argument list) 

input-argument portion ~ (empty) | (input-argument list) 

output-argument list ~ 

(variable) | 

(argument array) | 

(output-argument Ust), (output-argument list) 

output-argument portion ~ (empty) | (output-argument list) 

program reference-argument list ~ 

(label) I 

(procedure identifier) ( ) | 

(function identifier) ( ) | 

(program reference-argument Ust), (program reference-argument Ust) 

program reference-argument portion ~ (program reference-argument Ust) 

argument list ~ 

(input-argument portion) [ 

(input-argument portion); (output-argument portion) 1 

(input-argument portion); (output-argument portion); (program reference-argument portion) 
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evaluated function ~ 
(function identifier) ((simple argument list)) \ 

(procedure identifier) ((argument list)) 

arithmetic-evaluated function ~ (evaluated function) 

Boolean evaluated function ~ (evaluated function) 

arithmetic operation ~ + | - | . | * | / [ . + [ . - | *+ | *_ | /_|- | /_ 

basic arithmetic expression ~ 

(arithmetic constant) | 

(arithmetic variable) j 

(arithmetic evaluated function) | 

(basic arithmetic expression) (arithmetic operation) (basic arithmetic expression) | 

((arithmetic expression)) 

arithmetic expression ~ 

(basic arithmetic expression) | 

-r\ijaonj einuiiuctiu cXpieSSiOii/ | 

—(basic arithmetic expression) 
relational operation ~ GTR | GEQ | EQL | NEQ | LEQ | LSS 

arithmetic relation ~ (arithmetic expression) (relational operation) (arithmetic expression) 
Uiiar^ x>Ooleau operation '^ NOT 

binary Boolean operation ~ AND | OR | EQIV | IMPL 
Boolean expression ~ 

(Boolean constant) | 

(Boolean variable) | 

(Boolean evaluated function) | 

((arithmetic relation)) | 

(unary Boolean operation) (Boolean expression) | 

(Boolean expression) (binary Boolean operation) (Boolean expression) | 

((Boolean expression)) 

expression ~ (arithmetic expression) | (Boolean expression) 

condition ~ (arithmetic relation) | (Boolean expression) 

program ~ (statement list); FINISH; 

statement ~ (operational statement) | (declaration) 

statement list ~ 

(operational statement) | 
(statement) ; (statement list) j 
(statement list); (statement) 
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Operational statement ~ 

(assignment statement) 1 

(go statement) | 

(enter statement) 1 

(return statement) | 

(stop statement) j 

(switch statement) | 

(overlay statement) | 

(clause) ; (operational statement) | 

(alternative statement) ] 

(compound statement) ] 

(procedure-call statement) j 

(labeled dummy statement) | 

(labeled operational statement) 

arithmetic assignment statement ~ (arithmetic variable) = (arithmetic expression) 

(arithmetic variable) = (arithmetic assignment statement) 
Boolean assignment statement ~ (Boolean variable) = (Boolean expression) 1 

(Boolean variable) = (Boolean assignment statement) 
procedure-assignment statement ~ (procedure identifier) ( ) = (expression) 
assignment statement ~ 

(arithmetic assignment statement) | 

(Boolean assignment statement) | 

(procedure-assignment statement) 

go statement ~ GO (statement label) | GO TO (statement label) 

enter statement ~ ENTEB (subroutine label) 

return statement ~ RETUBN 

stop statement ~ STOP 1 STOP (expression) 

switch list ~ (statement label) | (switch list), (switch list) 

switch statement ~ SWITCH (expression), ((switch list)) 

overlay statement ~ OVERLAY (segment label) 

clause ~ (if clause) | (until clause) | (for clause) 

if clause ~ IF (condition) 

until clause ~ UNTIL (condition) 

for clause ~ FOR (arithmetic variable) = (iteration list) 

iteration list ~ 

(arithmetic expression) | 

((arithmetic expression), (arithmetic expression), (arithmetic expression)) | 

(iteration hst), (iteration list) 

C-4 



SYNTACTICAL DESCRIPTION OF THE COMPILER LANGUAG] 

ending - END | ) [ END (label) | END (procedure identifier) ( ) 
alternative statement head ~ 

EITHER (if clause); (operational statement) | 

(alternative statement head); OR (if clause); (operational statement) 

alternative statement tail - (ending) j; OTHERWISE; (operational statement) 

alternative statement ~ (alternative statement head) (alternative statement tail) 

procedure-call statement ~ (procedure identifier) ((argument list)) 

compound statement ~ 

BEGIN (statement list) (ending) | 
((statement list) (ending) 

statement label ~ (label) 

labeled dummy statement -- (statement label).. 

labeled operational statement ~ (statement label).. (operational statement) 

declaration ~ 

(type declaration) \ 
(array declaration) | 
(comment declaration) | 
(subroutine declaration) | 
(function declaration) | 
(procedure declaration) \ 
(segment declaration) | 
(input declaration) | 
(output declaration) | 
(format declaration) | 
(monitor declaration) | 
(external declaration) 

type name ~ FLOATING | INTEGER | BOOLEAN | REAL 
type-list element ~ 

(simple variable) | 
(array identifier) | 
(array identifier) ( ) | 
(function identifier) | 
(function identifier) ( ) | 
(identifier)... 

type list ~ (type-list element) | (type list), (type list) 
type declaration ~ 

(type name) (type list) | 
(type name) OTHERWISE | 
(type name) ((type list)) 
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integer list ~ 

(integer constant) \ 
(integer list), (integer list) 

array identifier ~ (identifier) 

basic array-list element ~ (array identifier) ((integer list)) 

constant list ~ 

(signed constant) | 
(constant list), (constant list) 

array list ~ 

(basic array-list element) 1 

(basic array-list element) = ((constant list)) | 

(array list), (array list) 

array declaration ~ 

ARRAY (array list) 1 
ARRAY ((array list)) 
comment declaration ~ COMMENT (any set of characters not containing a semicolon) 

subroutine label ~ (label) 
subroutine declaration ~ 

SUBROUTINE (subroutine label); (compound statement) 
function identifier ~ (identifier) 
simple parameter list ~ 

(identifier) | 

(simple parameter list), (simple parameter list) 

function declaration ~ 

FUNCTION (function identifier) ((simple parameter list)) = (expression) 

parameter-subscript Ust ~ 

(empty) | 

(parameter-subscript list), (parameter-subscript list) 

parameter array ~ (identifier) (parameter-subscript list) 

procedure identifier ~ (identifier) 

input-parameter list ~ 
(identifier) | 
(parameter array) 1 
(input-parameter Ust), (input-parameter list) 

input-parameter portion ~ (empty) \ (input-parameter list) 
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output-parameter list ~ 

(identifier) | 

(parameter array) j 

(output-parameter list), (output-parameter list) 

output-parameter portion ^^ (empty) j (output-parameter list) 

program reference-parameter list ~ 

(identifier) | 

(identifier) ( ) | 

(program reference-parameter list), (program reference-parameter list) 

program reference-parameter portion ~ (program reference-parameter list) 

parameter list ~ 

(input-parameter portion) | 

(input-parameter portion); (output-parameter portion) | 

(input-parameter portion); (output-parameter portion); (program reference-parameter portion) 

procedure declaration ~ 

PROCEDURE (procedure identifier) ((parameter list)) ; (compound statement) 
segment label ~ (label) 
segment declaration ~ 

SEGMENT (segment label); (compound statement) 
input label ~ (label) 
input-data list ~ 

(variable) | 

(for clause); (input-data list) | 
(for clause) ; ((input-data list)) | 
(input-data list), (input-data list) 

input list ~ 

(input label) ((input-data list)) | 
(input list), (input list) 

input declaration ~ 

INPUT (input list) I 
INPUT ((input list)) 

output label ~ (label) 

output-data list ~ 

(expression) | 

(for clause); (output-data list) | 
(for clause); ((output-data list)) ] 
(output-data list), (output-data list) 
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output list ~ 

(output label) ((output-data list)) | 
(output list), (output list) 

output declaration ~ 

OUTPUT (output list) 1 
OUTPUT ((output list)) 

basic format phrase ~ 

(letter) | 

(letter) (integer constant) | 

(letter) (integer constant).(integer constant) 

format phrase ~ 

*(any string of characters not containing an *)* | 

(basic format phrase) | 

(integer constant) (basic format phrase) 

format-phrase list ~ 

(format phrase) ] 

(format-phrase list), (format-phrase list) | 

((format-phrase list)) | 

(integer constant) ((format-phrase list)) 

format label ~ (label) | (integer) 

format list ~ 

(format label) ((format list)) | 
(format list), (format list) 

format declaration ~ 

FORMAT (format Ust) 1 
FORMAT ((format list)) 

monitor declaration ~ 

MONITOR 1 
MONITOR (type list) | 
MONITOR ((type list)) 

(external declaration) ~ 

EXTERNAL PROCEDURE (procedure identifier) ((parameter list)) | 

EXTERNAL PROCEDURE (procedure identifier) ((parameter list)); (type name) (procedure identifier) 

EXTERNAL STATEMENT (label) 
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rules 



THIS APPENDIX presents a summary of equivalences 
between the elements of the Burroughs Algebraic 
Compiler language, and the elements of Algol, the in- 



t See Communications of the ACM, vol. 1, no. 12, pp. 8-22; and 
vol. 3, no. 5, pp. 299-313. 



ternational algebraic language. It is this latter language 
which is used for the publication of programs written in 
the former. Transhteration of programs for the Bur- 
roughs Algebraic Compiler into algol requires a 
thorough familiarity with algol, the details of which 
are available in the literature, f 



Reference Language 


1. BASIC SYMBOLS 




a. Non-delimiters 




(1) Letters 


A. iVM /j 




a /yw z 


(2) Digits 


0^9 


b. Delimiters 




(1) Operators 




Arithmetic 


+ 



Burroughs Language 



A 
A 



+ 



X 



Relational 



< 
< 

> 
> 

5^ 



The multiplication sign may be 
omitted in certain instances. 
It is represented on card equipment 
as a decimal point (.). 

/ 

LSS 

LEQ 

EQL 

GEQ 

GTR 

NEQ 
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1. BASIC SYMBOLS (continued) 

b. Delimiters (continued) 



(1) Operators (continued) 




Logical 


-, 


NOT 




V 


OR 




A 


AND 




= 


EQIV 




(:>) 


IMPL 




Logical implication — no 
equivalent in the reference 
language. 




Sequential 


go to 


GOTO 




(no equivalent) 


SWITCH 




do 


(no equivalent) 




return 


RETURN 




stop 


STOP 




(no equivalent) 


FINISH 




for 


FOR 




if 


IF 




or 


OR 




if either 


EITHER IF 




or if 


OR IF 




(no equivalent) 


UNTIL 


(2) Separators 


(not required) 


(space) 



Spaces must be used to separate 
contiguous identifiers or an identifier 
followed by a constant. Spaces may 
not be embedded within an identifier 
or a constant. 



On standard keypunch equipment, 
the semicolon is represented by $ 
(dollar sign.) 



(See PROCEDURES) 

(no equivalent) 

Related to the DO statement 
in the reference language. 



(3) Rrackets 



begin 
end 

( 
) 



Power of 10. 

REGIN 
END 

( 
) 
( 
) 
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1. BASIC SYMBOLS (continued) 
b. Delimiters (continued) 
(3) Brackets (continued) 



T 


*( 


i 


) 




(Parerxtheses may be oraitted 
in certain instances.) 


(4) Declarators 




type 


INTEGER, BOOLEAN, 




FLOATING, REAL 


array 


ARRAY 


function 


FUNCTION 


comment 


COMMENT 


procedure 


PROCEDURE 


(no equivalent) 


SUBROUTINE 


(no equivalent) 


INPUT 


(no equivalent) 


OUTPUT 


(no equivalent) 


FORMAT 


switch 


(no equivalent) 




See SWITCH statement. 



2. EXPRESSIONS 

Most expressions are self-evident, except those noted below : 
a. Numbers G.Gio + G 9-8** ±9 



•G 

b. Simple Variables I 

c. Variables with I[C] 
Subscripts 

d. Functions 

e. Arithmetic 
Expressions 



0.9 
1**9 



I(R) ^((R) 

(See Arithmetic Operators, above). 



f. Boolean 
Expressions 

3. STATEMENTS 

a. Assignment 

b. Go to 

c. Switch 

d. If 

e. Until 



El t Ea i E1*(E2) 

(Parenthi 
in certain 

(See Relational Operators, above) 



(Parentheses may be omitted 
in certain instances.) 



V :=E 

go to D 

(no equivalent) 

ifB 

(no equivalent) 



V = & 

GO TOD 

SWITCH 8, (9li, 9l2, ^, 3l„) 

IF(B 

UNTIL e 
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3. STATEMENTS (continued) 



f. For 


for V := C 
for V := Ef, 

(E,,) Eg, AW 


FOR V = e 

FOR V = (S.,, S,„ &J 


g. Alternative 


if either Bi, 
Si; or ifBi, 

S2; AW end 


EITHER IF (Bi; Sr, OR IF (B2; 
§2 END 

EITHER IF(Bi;Si;ORIF(B2;S2; 
OTHERWISE; S„ 


h. Stop 


stop 


STOP 


i. Finish 


(no equivalent) 


FINISH 


j. Return 


return 


RETURN 


k. Procedure 


H_i i, i i, AW, -r»7 

^'^ • V-t 0» -To, AW, -Toy 


d{(Pi, (Pi, AW, (Pi; 

VJo, "^0, AW, (jo, 

(P„ (Pr, AW, (Pr) 


1. Subroutines 


(no equivalent) 


ENTER ^ 


m. Do 


do Li, L2 

(»5-» ^ A, AW, 

S.-^I) 


(no equivalent) 


4. DECLARATIONS 






a. Type 


fjpe (I, I, AW, I) 
(no equivalent) 


BOOLEAN d, ^(,), ^... 
INTEGER ^, ^(,), ^... 
FLOATING^, ^(,),^... 
REAL 5, ^(,), ^... 
(type) OTHERWISE 


b. Array 


array (I, I, aw, 
I[C:C'], I, I, aw) 
(no equivalent) 


ARRAY ^. (e.), 
ARRAY ^;(©,) = (e^). 


c. Functions 


I(R) := E 


FUNCTION ^((R) = 8 


d. Comment 


comment S; 


COMMENTS; 


e. Procedure 


procedure I(P,) =: (Po) 

i.\Ii) =. \^X 0/, AW AAV AAA, 

I(P,)=:(Po)A;A; 
AW AW AW ; A begin S ; S ; 

(VWV /WV A(W J " > ^ 5 AW AW AW ? 

S; S end 


, PROCEDURE ^((P.; (?«; (Pr); 
BEGIN S. END 


f. Subroutines 


(no equivalent) 


SUBROUTINE ^;(S.) 


g. Input 


(no equivalent) 


INPUT (di (SDS)) 


h. Output 


(no equivalent) 


OUTPUT {di (SDS),-) 


i. Format 


(no equivalent) 


FORMAT (^.- (JS)i) 



n.i 
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PROGRAMS WRITTEN IN MACHINE-LANGUAGE — whether 
for use as external programs, as external state- 
ments, or as library procedures — are prepared similarly, 
and the techniques and conventions required for their 
construction are listed below. 



LINKAGE TO PROCEDURES 

tions executed are: 

0000 STP axmi 
nnOO BUN aaxm 

where ojojoa is the location of the first cell of the proce- 
dure and the value of nn is one less than the number of 
parameters given to the procedure. 

Since the address fields of both the STP and the BUN 
instructions are the same, it is necessary that the first 
instruction of the procedure be a NOP. This NOP is of 
the form 

Qjojaa'. bbbb NOP xxxx 

where xxxx will be replaced when the STP instruction 
is executed, and 6666 is the address where the first 
parameter is to be stored. Each succeeding parameter 
will then be stored in sequence following the address 
6666. 

Suppose now that Pi, and P2, ..., Pm are the addresses 
of those parameters which are to be given to the proce- 
dure. The compiler will in effect produce the following 
program: 



CODE 

0000 CAD Pi 

4400 DLB aaaa 

1 0000 STA 0000 

0000 CAD P2 

1 0000 STA 0001 



0000 CAD P„_i 

1 0000 STA (m - 2) 
0000 CAD P^ 

0000 STP aaaa 
nnOO BUN aaaa 



REMARKS 



Pi -^ bbbb 
P2 -^ bbbb + 1 



Pot— 1 
Pot - 



6666 + m - 2 



rA 



(nn = m — 1) 

Notice that the control field of the NOP instruction 
which heads the procedure provides the address used 
to determine the location in which to store parameters. 
The last parameter is always left in the A register. In 
particular, if a procedure has only one parameter, it will 
be found in rA. 

When constructing machine-language procedures, the 
6666 field may be either located within the procedure 
code itself (the control field of an instruction may be re- 
located — see Relocation Conventions) or it may be abso- 
lute. The absolute addresses available for this purpose 
are 0100 through 0199. A word of caution concerning the 
use of any of these absolute addresses for 6666 is neces- 
sary. The memory area 0100 through 0199 is used as a 
buffer area by input-output procedures. If it is possible 
that a procedure be executed by linkage (perhaps sev- 
eral times removed) from the program compiled by an 
OUTPUT declaration, then a conflict will result if that 
procedure uses the buffer area for its parameters. 
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PARAMETERS OF PROCEDURES 

As discussed in Chapter VII, parameters may be con- 
sidered as being either values or identifiers. Input vari- 
ables or expressions are values; the procedure thus re- 
ceives the actual value of the variable or expression 
given as a parameter. Output variables are identifiers. 
When an output variable is indicated, the address of 
that variable is given to the procedure in the 04-field. 

All program-reference parameters are also identifiers; 
the procedure receives, in the 04-field, the address of 
the parameter to which reference is made. 

In the case of arrays the situation is somewhat more 
complex. Whenever an array is written as a parameter 
(either as input or output) several parameters are given 
to the procedure. This set of parameters consists of a 
base address and values corresponding to each empty 
subscript position, which we will call m, m, /X2, •••, Mt, 
respectively. The address of an element A(ni, ^2, ..., rik) 
is then given by 

m + ( ( (...( {uifii + ni)iJi2 + uz) ... + nk)fik- 

As an example, consider the three-dimensional array 
M( , , 5, , 7) which is used as a parameter to a given pro- 
cedure. The parameters supplied to this procedure 
would be m, m, m and nz. The procedure could then cal- 
culate the address of the element M(rti, n^, 5, nz, 7) by 

»i + ( (ni/ti + n^m + ni)iiz. 



RELOCATION CONVENTIONS 

All machine-language programs are written relative to 
location 0000. The compiler will relocate the program so 
that it occupies storage starting at some other cell. The 
address of this cell is called the relocation base. This 
relocation is controlled by the sign digit of the machine- 
language commands. 

Sign Digit of Zero, One, Two, or Three 

Instructions with signs of zero, one, two, or three are 
not altered in any way. 

Sign Digit of Four 

Instructions with a sign digit of four are not allowed 
except for the following: 

If the operation code is 00 {sL = 62), advance the 
location counter by the amount specified in the address 
field. This instruction behaves in a manner analogous to 
a pseudo-operation code in an assembler and allows the 
programer to reserve blocks of memory relative to the 
beginning of the routine. 



If the operation code is 30, the compiler will insert an 
unconditional transfer to the statement immediately 
following the declarator which defined the external state- 
ment. This instruction is similar to the RETURN op- 
eration of the symbolic language and may be used any 
number of times within an external statement. 

If the operation code is 99, the end of this machine- 
language program is indicated. 

Sign Digit of Five or Six 

Instructions with a sign digit of five or six have their 
address field located relative to some identifier defined 
within the algol program. The control field is unaltered. 
The sign is set to one if the original sign was five, and 
to zero if it was six. 

Sign Digit of Seven 

Instructions with a sign digit of seven have their control 
field {sL = 44) relocated with respect to the first instruc- 
tion of the program. The address field is not altered and 
the sign of the instruction is set to zero. 

An instruction with a sign of seven and an operation 
code of 01 (NOP) is often used as the first instruction of 
an external or library procedure when it is desired to 
locate the parameters to the procedure within the 
routine itself. 

Sign Digit of Eight 

Instructions with a sign digit of eight have their address 
fields {sL = 04) relocated with respect to the first in- 
struction of the program. The control field is not altered 
and the sign of the instruction is set to zero. 

Sign Digit of Nine 

Instructions with a sign digit of nine have their address 
fields relocated with respect to the first instruction of 
the program. The control field is not altered and the sign 
of the instruction is set to one. 



USE OF EQUIVALENCE CARDS 

It is possible in a machine-language program to refer to 
any identifier defined within the symbolic program, as 
well as to any library procedure. Every identifier to 
which it is desired to refer is assigned a unique two- 
digit equivalent, mm, by means of an equivalence card 
preceding the machine-language deck. (See Appendix F 
for the list of subroutine names). This card has the digit 
two in column 1, an arbitrary number of spaces, an iden- 
tifier, an equal sign, and a two-digit number (leading 
zeros may be omitted) which is assigned to the identi- 
fier, e.g. : 
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COLUMNS 
1 

5- 9 



or: 



1 

7-19 



CONTENTS 

2 
SIN =3 



SUMSQUARES=56 



If tli6 idGRtifisr is dGfinGd witliiri s ■•^r'^*'^'^'^'^^'^ iha-n iV 
must be preceded by a prefix which is the name of the pro- 
cedure enclosed in parentheses. Thus the equivalence card 
for label START within the procedure SIMPSON 
might appear as: 



COLUMNS 

1 

4-20 



CONTENTS 



(SIMPSON)STAR': 



The address field of any instruction within a machine- 
language program which has a sign of five or six, i.e. : 



{3 



xxxx OP mm kk 



will be replaced by kk, plus the address of the identifier 
corresponding to mm. 

For example, suppose that the instructions 

6 0000 44 0300 
6 0001 30 0301 
5 0001 23 0341 

are included within a machine-language program and 
that the equivalence card with the following entries: 



COLUMNS 

1 
4- 8 



CONTENTS 

2 
SIN=3 



has preceded this program. Now assume that the compi- 
ler has assigned the cells 2856 - 2904 to the SIN routine. 
These instructions would then appear in the final pro- 
gram as: 

0000 44 2856 

0001 30 2857 

1 0001 23 2897 

If the identifier is that of an array, then the following 
method must be used to address a specific element 
within the array: 

Assume that the array A has been defined previously by 
the declaration : 

ARRAY kim, 112, ..., nk) 

then the address of the element A(/ii, ^2, ..., nk) is given 
by m + ( ( (...(ni m2 + ^2)^3 + "3) ... + rik-i)tik + rik. 
(Note that ni is not used in the calculation). 



A value of m is assigned to each array identifier by the 
compiler. Thus if the array M had been defined by the 



statement : 



ARRAY M(15, 4, 6) 

and the following coding was preceded by the equiva- 
lence card with the entries: 



COLUMNS 

1 

6- 9 



CONTENTS 

2 
M=59 



the value of the element M(ni, 712, ns) would be put into 
the A register. 





OPERATION 






LOCATION 


AND ADDRESS 


REMARKS 


0107 


8 0000 10 0132 


CAD 


Til 


0108 


8 0000 14 0130 


MUL 


M2 


0109 


0001 49 0010 


SLT 


10 


0110 


8 0000 12 0133 


ADD 


n2 


0111 


8 0000 14 0131 


MUL 


Ms 


0112 


0001 49 0010 


SLT 


10 


0113 


8 0000 12 0134 


ADD 


^3 


0114 


8 0000 40 0135 


STA 


temp 


0115 


8 0000 42 0135 


LDB 


temp 


0116 


5 0000 10 5900 


-CAD 


m 



0103 


0000 00 0004 


0131 


0000 00 0006 


0132 


0000 00 (ni) 


0133 


0000 00 (R2) 


0134 


0000 00 (ns) 


0135 


0000 00 0000 



M2 
M3 
Til 

n2 

Tlz 

temp 

It has been assumed that the compiler assigned the 
value 3900 to m for the array M in the above example. 

MAGNETIC-TAPE OPERATIONS 

In order to allow the use of the Magnetic-Tape Field 
Search (MFS) and Magnetic-Tape Field Scan 
(MFC) commands, the following conventions have been 
employed : 

The pseudo-operation codes 90 and 91 have been intro- 
duced for use by the programer, when referring to the 
MFS and MFC commands, respectively. 

If the address field of the field search or scan is to be 
absolute, then the sign of the instruction must be four 
or five. 

If the address field is relative to the first line of the sub- 
routine, the sign must be eight or nine. 
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If the address field is relative to some identifier, the 
sign must be six or seven. 

The signs of five, seven, and nine indicate B-modifica- 
tion is to be performed. 

PREPARATION OF EXTERNAL PROGRAMS 

As discussed in Chapter VII, it is necessary, when us- 
ing external programs, to have an EXTERNAL decla- 
rator in the body of the symbolic program. The defini- 
tion of the program itself follows the FINISH statement 
of the symbolic statement. 

This deck must contain : 

First: The name card 

'Name' cards have a two in column 1, followed by the 
name of the statement or procedure, a comma, and the 
type (INTEGER, BOOLEAN, FLOATING, or REAL). 
The use of a comma followed by the type is necessary 
only in the case of a procedure which behaves as a func- 
tion, i.e., has a value associated with its name which is 
left in the A register. 

Second: The equivalence cards 

'Equivalence' cards have a two in column 1, an identi- 
fier, an equal sign, and two digits. These cards are used 
only when necessary to refer explicitly to other identi- 
fiers in the program. 

Third: The instruction cards 

'Instruction' cards define the program in machine lan- 
guage, and have the following format: 

columns card entry 

1- 2 60 

3 The number of instructions on this card 

4-10 Any identification, serial numbers, etc., that 
the user desires 

11-14 These columns are ignored. 

15 - 25 The first instruction 

26 - 36 The second instruction 

37 - 47 The third instruction 

48 - 58 The fourth instruction 

59 - 69 The fifth instruction 

70 - 80 The sixth instruction 

As many of these cards as required are used. The final 
card of this program must have as its last instruction the 
FINISH pseudo-operation code: 4 0000 99 0000. 

All the EXTERNAL programs declared in the sym- 
bolic program follow one after the other. Following the 
final external deck, another symbolic card must appear 
with the word FINISH on it. This defines the end of the 
program (symbolic statements and machine-language) 
to the compiler; it is in addition to the FINISH state- 
ment of the symbolic program. 



Example : 

Suppose we wish to define a procedure to detect an over- 
flow condition. In the symbolic deck, prior to the use of 
this procedure, we would have the declaration : 

EXTERNAL PROCEDURE OVERFLOW (; ; L) 

Following the FINISH statement, the following deck 
would appear: 



card 








NO. 




entries 




1 


2 


OVERFLOW 




2 


606 


0000 00 0000 


0000 01 9999 
8 0410 40 0002 

0000 31 9999 
8 0000 42 0000 

1 0000 30 0000 
4 0000 99 0000 



3 2 FINISH 

Example: 

Suppose that an external procedure is to be defined for 
the complex multiplication: 

{A + iB){C + iD) -^ {X+ iY) 

In the symbolic program, the following declaration 
would appear: 

EXTERNAL PROCEDURE CMPMULT(A ,B, C, D; X, Y); REAL 
CNIPMULT; 

After the FINISH statement would be the following 
deck: 



card 










NO. 




entries 




1 


2 


CMPMULT, REAL 




2 


606 


0000 01 0000 


7 0020 

8 0410 


01 9999 
40 0017 








8 0000 41 0024 








8 0411 


40 0010 








8 0000 


10 0020 








8 0000 24 0022 


3 


606 


0000 02 0006 


8 0000 40 0024 








8 0000 


11 0021 








8 0000 


24 0023 








8 0000 


22 0024 








0000 


40 9999 








8 0000 


10 0020 


4 


606 


0000 03 0012 


8 0000 
8 0000 
8 0000 
8 0000 
8 0000 
0000 


24 0023 
40 0024 
10 0021 
24 0022 
22 0024 
40 9999 


5 


604 


0000 04 0018 


8 0000 
1 0000 
4 0000 
4 0000 


42 0000 
30 0000 
00 0005 
99 0000 
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Suppose that an external procedure which will allow key- 
board input of a single item of data is to be defined. 
The declaration 

EXTERNAL PROCEDURE KEYIN (; X) 

appears in the symbolic program. The card deck which 
follows the FINISH statement in the symbolic program 



CARD 
NO. 

1 

2 



ENTRIES 



2 
606 



KEYIN 

0000 01 0000 



602 0000 02 0006 



FINISH 



0000 01 9999 
8 0410 40 0004 
0007 45 0000 
0000 08 0000 

0000 40 9999 
8 0000 42 0000 

1 0000 30 0000 
4 0000 99 0000 



If it was desired to use the keyboard to enter a variable 
ALPHA, it could be written as a statement. In the sym- 
bolic program, the declaration: 

EXTERNAL STATEMENT KEYIN 

would appear. Following the FINISH statement would 
be the deck: 



NO. 




ENTRIES 


1 


2 


KEYIN 


2 


2 


ALPHA=33 


3 


605 


0000 00 0000 0007 45 0000 
0000 08 0000 
6 0000 40 3300 
4 0000 30 0000 
4 0000 99 0000 



LIBRARY PROCEDURES 

Library procedure decks are prepared in a manner iden- 
tical to that for external procedures, i.e., a name card 
followed by equivalence cards, followed by the machine- 
language program. Following the final deck is again a 
card with the word FINISH. The method of loading 
these decks onto the tape is discussed in Appendix A, 
Operating Instructions. 

Example : 

A possible library procedure for the inverse-cosine func- 
tion is reproduced here as an example. This procedure 
uses the relation: 



arccos x = arcsin (-x) + - 



A reference must be made to the ARCSIN procedure. 
We shall assume also that cell 0047, relative to the 
ARCSIN procedure, is available for temporary storage 
and that cell 0033 contains the constant 7r/2. 



CARD 
NO, 

1 

2 
3 



ENTRIES 

2 ARCCOS, REAL 

2 ARCSIN=21 

606 0000 01 0000 0000 01 9999 

6 0000 40 2147 
6 0000 11 2147 
6 0000 44 2100 
6 0000 30 2100 
6 0000 22 2133 

603 0000 02 0006 8 0000 42 0000 

1 0000 30 0000 
4 0000 99 0000 



THE ERROR-MESSAGE PROCEDURE 

The error-message procedure controls the printing of 
ii"^ xOiiOwmg i^ypes Oj. error in\j.ication on tne line 

PRINTER. 



RESULT OUT OF RANGE IN (P - £(nnnn) 
RESULT UNDEFINED FOR (P - £(nnnn) 
RESULT ILL-DEFINED FOR (P - £(nnnn) 
ARiTHmETiC OVERFLOW - £{nnnn) 

where (P is the label of the procedure which caused the 
printing. If a MONITOR statement has been given, 
£(nnnn) will also be printed, where £ is the first five 
characters of the label of the last labeled statement 
which has been executed, and nnnn is the number of 
times this statement has been executed. 

Any machine-language program may use this procedure 
to give error indications, provided the following con- 
ventions are adhered to: 

The name (P is in the R register, in alphanumeric form, 
upon entrance to the error message procedure. (In the 
case of arithmetic overflow, (P is ignored.) 

Upon entrance, the exit line is in the B register. 

Control is transferred to locations 0000, 0007, 0014, or 
0021, relative to the beginning address of the error-mes- 
sage procedure, to cause printing of any of the error 
indications listed above in their respective order. 

Example : 

To illustrate the use of the error-message procedure, 
consider the library procedure ARCCOS. The relation 
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COS"' X 



sin~^ X 



is used for calculation and hence an entry must be made 
to the ARCSIN routine. Also, since cos-^ x is undefined 
for I a; I > 1, an entry must be provided to the error- 
message procedure. 



CARD 

NO. 
1 

2 
3 
4 



ENTJRIES 

2 ARCCOS, REAL 

2 ARCSIN=1 

2 ERR0R=13 

606 0000 01 0000 0000 01 0000 
8 0010 18 0012 
8 0000 42 0000 

8 0000 41 0013 

6 0000 34 1311 



5 606 0000 02 0006 



6 605 0000 03 0012 



8 0000 40 0015 
8 0000 11 0015 
6 0000 44 0100 
6 0000 30 0101 
8 0000 22 0014 
8 0000 42 0000 

1 0000 30 0000 
5110 00 0000 

2 4143 56 6200 
5115 70 7963 
0000 00 0000 

4 0000 99 0000 



Load B with 

exit line 
Load R with 

name 'ACOS' 
If I x I > 1, 
print undefined 
error message 

Get sin-i { — x). 



Exit 

1.0 

'ACOS' 

7r/2 

Temporary 

storage 

End of 

procedure 



INPUT-OUTPUT PROCEDURES 

External programs for specialized forms of input and 
output will often be employed. It is necessary in these 
cases to describe the coding produced by the compiler 
when an INPUT, OUTPUT, or FORMAT declaration 
is given. 

The prime function of the program produced from either 
an INPUT or OUTPUT declaration is to form a link 
between those quantities which have been determined 
at compilation time (i.e., the addresses representing ar- 
rays, variables, expressions, etc.) and those quantities 
which are known only when the compiled program is 
executed (i.e., quantities either to be read from, or writ- 
ten on, various input or output media). The programs 
must thus be produced without reference to the routines 
which will use them. 

When the name of an INPUT or OUTPUT declaration 
is given to a procedure (either a library procedure such 
as READ or WRITE, or some EXTERNAL procedure) 
it is in the program-reference field, and thus an address 
can be assigned to it. It is to this address that the input 
or output program will refer to determine an 'exit' ad- 
dress to which the program may transfer control. The 
input-output program, in turn, leaves its own return 



address in the B register. The A register is used to trans- 
mit the actual data. An OUTPUT declaration will put 
data to be transmitted to output media in the A regis- 
ter. An INPUT declaration will store data from the A 
register. 

When all the relevant data have been transmitted — the 
input-output string having been exhausted — the sign of 
the A register will be loaded with the digit nine, which 
serves as a termination flag. Note that no information 
should be transmitted until an entry has been made to the 
INPUT or OUTPUT declaration. If these strings were 
vacuous, the A register would be loaded immediately 
with the termination flag, but it is necessary to enter 
the routine to obtain this information. 

Some examples should make this clearer. Suppose we 
have the following INPUT declaration: 

INPUT DATA (A, I, 0(1), B) 

Let us assume that the variables A, I, 0(1), and B have 
been assigned cells 3701, 3702, 2008 + I, and 3703, re- 
spectively, and that the coding generated by the com- 
piler for this INPUT declaration starts at cell 0956. 



LOCA- 






OPERA- 


TION 






TION 


0956 





0000 


30 


0957 





0000 


42 


0958 





0002 


20 


0959 





0000 


40 


0960 





0000 


42 


0961 





0002 


20 


0962 





0000 


40 


0963 





0000 


42 


0964 





0002 


20 


0965 





0000 


42 


0966 


1 


0000 


40 


0967 





0000 


42 


0968 





0002 


20 


0969 





0000 


40 


0970 





0009 


43 


0971 





0000 


30 



ADDRESS 



REMARKS 



0000 

0957 first entry 
0956 

3701 second entry (A) 
0960 

0956 

3702 third entry (I) 
0963 

0956 

3702 fourth entry (0(1)) 
2008 

0967 
0956 

3703 fifth entry (B) 
0000 termination flag 
0956 



The following is a keyboard-input external procedure 
which could use this INPUT declaration. 

The procedure-cafl in the symbolic program would be: 

KEYIN{; ;DATA) 

Thus only one parameter (in rA) is supplied to the ex- 
ternal procedure. This parameter is the address of the 
input string DATA. In this particular case rA would 
contain 0000 01 0956. 
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CARD 
NO. 

1 

2 



ENTRIES 

2 KEYIN 

606 0000 01 0000 



606 0000 02 0006 



602 0000 03 0012 



0000 01 0000 
8 0410 40 0004 
8 0410 40 0005 
8 0401 26 0005 
0000 44 9999 
0000 30 9999 
8 0009 33 0011 
8 0412 40 0005 
0001 45 0000 

0000 08 0000 
8 0000 30 0005 
8 0000 42 0000 

1 0000 30 0000 
4 0000 99 0000 



As an example of an OUTPUT declaration consider the 
statement: 

OUTPUT DATB (A, i,X{i),B + A*2) 

Assume that the compiler has assigned the cells 3095, 
3096, 3097, and 2106 + I to the variables A, I, B, and 
X(I), respectively, and that the coding for this output 
statement starts at 1159. 

The coding would then appear as 



LOCA- 
TION 

1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 



OPERA- 
TION ADDRESS 



REMARKS 



0000 

0000 

0000 

0002 

0000 

0000 

0002 

0000 

1 0000 
0000 
0002 
0000 



30 
10 
42 

20 
10 
42 
20 
42 
10 
42 
20 
10 



1171 0000 24 

1172 0000 22 

1173 0000 42 

1174 0002 20 

1175 0009 33 

1176 0000 30 



0000 

3095 first entry (A) 
1161 

1159 

3096 second entry (I) 
1164 

1159 

3096 third entry (X(I)) 

2106 

1168 

1159 

3095 fourth entry 

(B + A*2) 
3095 
3097 
1173 
1159 

0000 fifth entry 
1159 termination signal 



The following describes an external procedure which 
uses this declarator, and which will transmit the infor- 
mation to the SUPERVISORY PRINTER as Output (in in- 
teger format). 

The symbolic procedure-call might be, for example: 
SPO(;;DATB) 

Thus onlv one parameter (m rA^i wnnlH b*^ GnriTiUcirl +r> 
the external procedure. This parameter is the address of 
the output string DATB and, in this particular case, 
would be 0000 00 1159. 



CARD 
NO. 

1 

2 



ENTRIES 



2 
606 



SPO 

0000 01 0000 



606 0000 02 0006 



^09 



A n(\(\(\ AQ AA1 O 



0000 01 0000 
8 0410 40 0004 
8 0000 42 0004 
8 9999 21 0004 

0000 44 0000 

1 0000 30 0000 
8 0009 33 0010 
8 0000 40 0012 
8 0010 09 0012 
8 0000 30 0004 
8 0000 42 0000 
1 0000 30 0000 

A AAAA AA AAA! 
-r \J\J\J\J \j\j \J\J\rx 

4 0000 99 0000 



THE FORMAT DECLARATION 

The compiler does not produce a program for a FOR- 
MAT declaration. It does a certain amount of pre- 
processing of the string language, and inserts this into 
the program. This preprocessing consists mainly of 
breaking the string up into phrases, word-by-word. The 
sign of the word determines the intepretation of the 
phrase. 

PHRASE FORMAT WORD FORMAT 

a 

nnnd 

Gtwww nnn & www dd 

nnnGLwww 

GLwww.dd 
nnnGLwww.dd 

where a is any alphabetic character, nnn is a three- 
digit numeric field, www is a three-digit numeric field, 
and dd is a two-digit numeric field. 

( ) 1 000 000 aaaa 

nnn{ ) 1 000 nnn aaaa 
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This word corresponds to a parenthesis pair. The word 
appears in the phrase Ust at a point corresponding to 
the right parenthesis. The digits nnn are the repeat 
digits preceding the corresponding left parenthesis. (A 
zero impHes an indefinite repeat.) The address of the 
word corresponding to the phrase following the left 
parenthesis is aaaa. 



aaaaa 



2aaaaa 



This word corresponds to five characters of an alpha- 
numeric string lying between asterisks. 

Maaaa 

This is the termination word of an alphanumeric string. 
One of the a's will be an * (internal machine code: 14) 
showing the exact point of termination of the string. 
Spaces not within an alphanumeric string are ignored. 

Consider the FORMAT declaration: 

FORMAT F{5F14.8, *F(X) = *, 2{3A13, 15), WO, (5110, P) ) 



and assume that the compiler assigns the cell 1894 to 
the first phrase in F. The following would then be pro- 
duced. (The symbol # is used here to indicate a space) : 

PHRASE REMARKS 

005 46 014 08 5F14.8 

2 00 46 24 77 04 #F(X) 

3 00 33 00 14 00 # = #* 
003 41 013 00 

000 49 005 00 

1 000 002 1897 
000 66 000 00 
005 49 010 00 

000 57 000 00 

1 000 000 1901 
1 000 000 1894 



ADDRESS 
1894 

1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 



) 



3A13 
15 

2( 
WO 
5110 
P 

(5110) 
F( ) 

Although there is a well-defined interpretation of these 
phrases as far as the WRITE procedure is concerned, 
the programer is at liberty to employ these phrases in 
an external program, which will interpret them in any 
way desired. 
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library procedures 



In order to make alterations to the library procedures 
listed below, or to incorporate additional procedures in 
the library, it is necessary to follow the instructions 
given in Appendix A. Maintaining the library in this 
manner requires that the user be in possession of both 
tiic LIBRARY PROCESSOR CALLOUT dccK and the appro- 



priate Hbrary-procedure decks. The preparation of the 
latter is discussed in Appendix E, page E-5. 

A description of these library procedures is given in the 
following pages, preceded by a specimen page showing 
the format of these descriptions. 



The compiler tape 


contains the following library of procedures: 


Library 




Procedure 


Description 


Names 




FLOAT 

FIX 

FX*FX 


Converts an integer to a floating-point number. 
Truncates a floating-point number to an integer. 


FL*FX 
FL*FL 


Power routines 


FX*FL 




SQRT 
EXP 


Square-root function 


LOG 


In X 


SIN 


sin a; 


COS 


cos X 


TAN 


tan X 


ENTIRE 
ARCCOS 


Greatest integer [a;] 
cos~^ X 


ARCSIN 


sin~^ X 


ARCTAN 


tan-^ X 


SINK 


sinh X 


COSH 


cosh X 


TANK 


tanh X 


ROMXX 


(1 - x^i^ 


READ 

WRITE 

ERROR 


Input 

Output 

Library error-message procedure (See page E-5f.) 
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Form 

Argument 
Result 
Description 
Accuracy 
Error Message 



External Use 



Remarks 



The generic form used by the programer in his algol pro- 
gram, the italicized letters indicating the input arguments 
for the procedures. 

Specifies the type of argument required for the procedure. 

Defines the type of the result produced by the procedure. 

Outlines the operation carried out by the procedure. 

Self-explanatory 

Lists all error messages which will be printed out for the 
given procedure. 

This is shown as the error message itself, followed by two 
blank columns, a hyphen, the first five characters of £ (the 
label of the last labelled statement which has been executed), 
and (nnnn), the number of times this statement has been 
executed. 

If no MONITOR statement precedes the program, or no 
labelled statement has been executed, blank columns will 
appear in place of £ and (nnnn). 

Explains conditions to be met in order to use these proce- 
dures with external machine-language procedures. The name 
given here is to be used on equivalence cards in external 
programs. (See page E-2.) 

Self-explanatory 
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Form 
Argument 
Result 
Description 

Accuracy 

Error Message 
External Use 



FLOAT 



FLOAT (x) 

X is integral. 

FLOAT (x) is floating-point. 

Converts the argument x into its corresponding floating- 
point form, as defined under Accuracy. 

Exact for I a; I < 10^, otherwise the result is truncated to 
eight significant digits. 

None 

X is in rA. On entry to the procedure, the exit from the sub- 
routine must be stored in the 04 field of the first line of the 
procedure. Result of the procedure FLOAT (x) is in rA. Use 
FLOAT on equivalence cards. 



Remarks 
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Form 
Argument 
Result 
Description 

Accuracy 
Error Message 

External Use 
Remarks 



FIX (x) 

X is floating-point. 

FIX (x) is integral. 

Truncates the argument x into its corresponding integral 
form. Any fractional part is lost. 



RESULT OUT OF RANGE IN FIX -£{nnnn) 
This print-out will result if i x | > 10^°. 

X is in rA. Use FIX on equivalence cards. 
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POWER 
ROUTINE 

FXFX 



Form 

Arguments 

Result 

Description 

Accuracy 

Error Messages 



External use 
Remarks 



A*B 

A and B are integers. 

The result, A^, is an integer. 

The result is exact. 

RESULT OUT OF RANGE IN FXFX -£(nnnn) 
This printout will result if U^| > 10^°. 
RESULT UNDEFINED FOR FXFX -£ (nnnn) 
This printout will result if A = and jB < 0. 

A is in rA; S is in rR. Use FX*FX on equivalence cards. 

This routine is automatically included in the compiled pro- 
gram as required. It is never called explicitly as a procedure. 
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Form 

Arguments 

Result 

Description 

Accuracy 

Error Messages 



External Use 
Remarks 



A*B 

A is floating-point; B is integral. 

The result, A^, is floating-point. 



The result, A^, has a maximum error of log2 B in the eighth 
significant digit. 

RESULT OUT OF RANGE IN FLFX -£{nnnn) 
This printout win result if |A5|> 0.99999999 X 10«. 
RESULT UNDEFINED FOR FLFX -£{nnnn) 
This printout wiU result if A = and B < 0. 

A is in rA; B is in rR. Use FL*FX on equivalence cards. 

This routine is automatically included in the compiled pro- 
gram as required. // is never called explicitly as a procedure. 
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POWER 
ROUTINE 

FLFL 



Form 

Arguments 

Result 

Description 

Accuracy 

Error Messages 



External Use 
Remarks 



A*B 

A is floating-point; B is floating-point. 
The result, A^, is floating-point. 



The error is, in general, less than 8 in the eighth significant 
digit. However, since the error is a function of the magnitude 
of A^, the maximum error is 3 in the sixth significant digit. 

RESULT OUT OF RANGE IN FLFL -£{nnnn) 
This printout will result 'd\A^\ > 0.99999999 X lO^^. 
RESULT UNDEFINED FOR FLFL -£(nnnn) 
This printout will result ii A = and S < 0, or if ^ < 
and B is non-integral, 

A is in rA; B is in rR. Use FL*FL on equivalence cards. 

This routine is automatically included in the compiled pro- 
gram as required. It is never called explicitly as a procedure. 
Note that the error messages for this routine are identical 
to those which can occur in the power routine FXFL. 
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Form 

Arguments 

Result 

Description 

Accuracy 

Error Messages 



External Use 
Remarks 



A*B 

A is integral; B is floating-point. 
The result, A^, is floating-point. 



The error is, in general, less than 8 in the eighth significant 
digit. However, since the error is a function of the magnitude 
of A^, the maximum error is 3 in the sixth significant digit. 

RESULT OUT OF RANGE IN FLFL -£(nnnn) 
This printout will result if | A^ | > 0.99999999 X lO*^. 
RESULT UNDEFINED FOR FLFL -£innnn) 
This printout will result if A = and B < 0, 
or if A < and B is non-integral. 

A is in rA; jB is in rR. Use FX*FL on equivalence cards. 

This routine is automatically included in the compiled pro- 
gram as required. It is never called explicitly as a procedure. 

Note that the name of the power routine FLFL occurs in- 
correctly in the error messages for this routine. 
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SQRT 



Form 

Argument 

Result 

Description 

Accuracy 

Error Message 

External Use 
Remarks 



SQRT (x) 

X is floating-point. 

SQRT (x) is floating-point. 

SQRT (x) is the square root of x. 

The maximum error is 2 in the eighth significant digit. 

RESULT UNDEFINED FOR SQRT -£{nnnn) 
This printout wiU result if a; < 0, 

X is in rA. Use SQRT on equivalence cards. 
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Form 

Argument 

Result 

Description 

Accuracy 

Error Message 

External Use 
Remarks 



EXP (x) 

X is floating-point. 

EXP (x) is floating-point. 

EXP (x) computes the exponential function e^. 

Let € be the error in the eighth significant digit, then 

for I a; I < 100, e < 3; 

for 100 <|a;|< 112.82666, c < 6. 

RESULT OUT OF RANGE IN EXP -£,innnn) 
This printout will result if a; > 112.82666. 

X is in rA. Use EXP on equivalence cards. 



LIBRARY PROCEDURES 



LOG 



Form 

Argument 

Result 

Description 

Accuracy 

Error Message 

External Use 
Remarks 



LOG {x) 

X is floatmg-pomt. 

LOG (x) is floating-point. 

LOG (x) is the natural logarithm, In x. 

The maximum error is 3 in the eighth significant digit 

RESULT UNDEFINED FOR LOG -£{nnnn) 
This printout will result if a; < 0. 

x is in rA. Use LOG on equivalence cards. 
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Form 

Argument 

Result 

Description 

Accuracy 

Error Message 

External Use 
Remarks 



SIN (x) 

X is in radians, and is floating-point. 

SIN (x) is floating-point. 

SIN (x) computes the sine function. 

The maximum error is 4 in the eighth significant digit. 

RESULT ILL-DEFINED FOR SIN -£(nnnn) 
This printout wiU result if | a; | > 10^. 

X is in rA. Use SIN on equivalence cards. 
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COS 



Form 

Argument 

Result 

Description 

Accuracy 

Error Message 

External Use 
Remarks 



COS (x) 

X is in radians, and is floating-point. 

COS (a;) is floating-point. 

COS (x) computes the cosine function. 

The maximum error is 4 in the eighth significant digit. 

RESULT ILL-DEFINED FOR COS -£(nnnn) 
This printout will result if j a; j > 10^. 

X is in rA. Use COS on equivalence cards. 



F-13 



TAN 



BURROUGHS ALGEBRAIC COMPILER 



Form 

Argument 

Result 

Description 

Accuracy 

Error Message 



External Use 
Remarks 



TAN (x) 

X is in radians, and is floating-point. 

TAN (x) is floating-point. 

TAN (x) computes the tangent function. 

The maximum error is 9 in the eighth significant digit. 

RESULT UNDEFINED FOR TAN -£(nnnn) 
This printout will result if cos x = 0. 

RESULT ILL-DEFINED FOR TAN -£{nnnn) 
This printout will result if | x | > 10^. 

X is in rA. Use TAN on equivalence cards. 
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ENTIRE 



Form 
Argument 
Result 
Description 

Accuracy 
Error Messages 
External Use 
Remarks 



ENTIRE (a;) 

X is floating-point. 

ENTIRE (x) is floating-point. 

ENTIRE {x) computes the function normafly denoted by 
[ a; ] ; it is defined to be the largest integer not greater than x. 

None 

X is in rA. Use ENTIRE on equivalence cards. 
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Form 
Argument 
Result 
Description 

Accuracy 
Error Message 

External Use 
Remarks 



ARCSIN (x) 

X is floating-point. 

ARCSIN (a;) is in radians, and is floating-point. 

ARCSIN (x) computes the inverse-sine function. The prin- 
cipal range is [-7r/2, 7r/2]. 

The maximum error is 7 in the eighth significant digit. 

RESULT UNDEFINED FOR ASIN -£{nnnn) 
This printout wiU result if | a; | > 1. 

X is in rA. Use ARCSIN on equivalence cards. 
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ARCCOS 



Form 
Argument 
Result 
Description 

Accuracy 

Error Message 

External Use 
Remarks 



ARCCOS (3:) 

X is floating-point. 

ARCCOS {x) is in radians, and is floating-point. 

ARCCOS (a;) computes the inverse-cosine function. The 
principal range is [0, tt]. 

Over most of interval [0, 1] the maximum error will be 9 in 
the eighth significant digit. 

RESULT UNDEFINED FOR ACOS -Zijinnn) 
This printout will result if | a; j > 1. 

X is in rA. Use ARCCOS on equivalence cards. 
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Form 
Argument 
Result 
Description 

Accuracy 
Error Message 
External Use 
Remarks 



ARCTAN (x) 

X is floating-point. 

ARCTAN (x) is in radians, and is floating-point. 

ARCTAN (a;) computes the inverse-tangent function. The 
principal range is [-t/2, ir/2]. 

The maximum error is 4 in the eighth significant digit. 

None 

X is in rA. Use ARCTAN on equivalence cards. 
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SINH 



Form 

Argument 

Result 

Description 

Accuracy 

Error Message 

External Use 
Remarks 



SINH (x) 

X is floating-point, 

SINH (x) is floating-point. 

SINH (x) computes the hyperbolic-sine function. 

Let e be the error in the eighth significant digit; then 

if I X I < 100, c < 7; 

if 100 < 1 X I < 112.82666, e < 13. 

RESULT OUT OF RANGE IN SINH -S>{nnnn) 
This printout will result if ] x | > 112.82666. 

X is in rA. Use SINH on equivalence cards. 
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Form 

Argument 

Result 

Description 

Accuracy 

Error Message 

External Use 
Remarks 



COSH (x) 

X is floating-point. 

COSH (x) is floating-point. 

COSH (x) computes the hyperbolic-cosine function. 

Let e be the error in the eighth significant digit; then 

for I X I < 100, e < 7. 

for 100 < I X I < 112.82666, e < 13. 

RESULT OUT OF RANGE IN COSH -£(nnnn) 
This printout wiU result if | x | > 112.826666. 

X is in rA. Use COSH on equivalence cards. 
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TANH 



Form 


TANH (x) 


Argument 


X is floating-point. 


Result 


TANH (a;) is floating-point. 


Description 


TANH {x) calculates the hyperbolic-tangent function. 


Accuracy 


Let e be the error in the eighth significant digit; then 

for 1 X 1 < 100, e < 10; 

for 1 X 1 > 100, the result is exact. 


Error Message 


None 


External Use 


X is in rA. Use TANH on equivalence cards. 


Remarks 
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Form 

Argument 

Result 

Description 

Accuracy 

Error Message 

External Use 
Remarks 



ROMXX (x) 

X is floating-point. 

ROMXX (x) is floating-point, 

ROMXX computes the function (1 - a;^)*. 

The maximum error is 1 in the eighth significant digit. 

RESULT UNDEFINED FOR ROMXX -£(nnnn) 
This printout will result if | x | > 1. 

X is in rA. Use ROMXX on equivalence cards. 

In order to obtain accuracy for x near unity, double-preci- 
sion arithmetic is used. 
Note that {x^ - 1)* = a; -ROMXX (l.O/x). 
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READ 



Forms 



Arguments 

Result 

Definitions 



First form: 

READ ( ; ; INDEC) 

Second form: 

READ ( ; S ; INDEC) 

INDEC is an identifier declared to be the name of an input- 
data set. 
S is a Boolean variable. 

First form: 

Read in the data set INDEC from the card reader. 
Second form: 

Same as the first form, but in addition, if the word SENTI- 
NEL is encountered (other than in an alphanumeric entry), 
terminate the input process and set S to one. If not, set 
S to zero. 



Accuracy 






Error Message 


None 




Calling SEQUENCE 


n-'-.i r 

I' u'svjunn. 

CAD 
STP 


(Address of INDEC) 
READ 




0000 BUN 


READ 




Second form: 

CAD 
DLB 


(Address of S) 
READ, sL = 44 

nn = 00 




STA 


-0 




CAD 
STP 


(Address of INDEC) 
READ 




Of 00 BUN 


READ 



Remarks 



For further details, see Chapter VIII and Appendix E. 
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WRITE 



BURROUGHS ALGEBRAIC COMPILER 



Forms 



Arguments 



First form: 

WRITE ( ; ; OUTSEC, FRMTDEC). 

Second form: 

WRITE ( ; ; FRMTDEC) 

OUTDEC is an identifier declared to be the name of an 
output-data set. FRMTDEC is an identifier declared to be 
the name of a format string. 



Result 

Descriptions First form: 

Print the data set OUTDEC as output on the line printer, 

the CARD punch, or the supervisory printer according to 

the format FRMTDEC. 

Second form: 

Print headings as output on the line printer, the card 

punch, or the supervisory printer as given by the format 

FRMTDEC. 

Accuracy 



Error Message 



None 



Calling Sequence First form: 



CAD 


(Address of OUTDEC) 


DLR 


WRITE sL = 44 




nn = 00 


STA 


-0 


CAD 


(Address of FRMTDEC) 


0000 STP 


WRITE 


0/00 BUN 


WRITE 


Second form: 




CAD 


(Address of FRMTDEC) 


STP 


WRITE 


0000 BUN 


WRITE 



Remarks 



For further details, see Chapter VIII and Appendix E. 
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[References to definitions of terms are in 
italics.] 

ABS (intrinsic function), 7-2 
Activation phrases (for output), 8-5 
Addition (+), arithmetic operation, 3-1 
ALGOL transliteration. Appendix D 
Alphanumeric input, rules for, 8-2 
Alphanumeric output, editing for, 8-5 
Alternative (EITHER IF) statement, 6-3 
AND (Boolean operation), 3-2 
Arguments, of functions, 2-3 
Arithmetic expressions, 3-1 
Arithmetic relations, 3-2 
ARRAY declaration, 5-2 
Arrays, method of filling, 5-2 
Assignment statement, 4-jf 
Asterisk, 2-1 

in alphanumeric insertion phrase, 

on data cards, 8-2 [8-5, E-8 

for exponentiation, 3-1 

printing of, 8-4 
Asterisks, 2-1 

for floating-point scale factor, 2-2 

BEGIN (statement parenthesis), 4-2 
Blanks, insertion in output line, 8-4 
BOOLEAN declaration (of type), 5-1 
Boolean operations, 3-2 

in arithmetic expressions, 3-3 
Boolean quantities, 2-2 

C-digit, for printer control, 8-5 
Callout decks, A-1 
Card format, 

data cards, 8-2 

equivalence cards, E-2 

external procedure. Appendix E 

SENTINEL cards, 8-3 

source deck, A-1 
Cell-count message, A-1 
Character set used by compiler, 2-1 
Commas, 

in subscript lists, 2-2, 5-2 

in type lists, 5-1 
COMMENT declaration, 5-3 
compiled program callout deck, A-2 
Compiled program listing, 10-4 

COMPILER CALLOUT deck, A-1 



COMPILER DUPLICATION CALLOUT dcck, A-2 

Compiler language, 

ALGOL transliteration of. Appendix D 

characters used in, 2-1 

syntax of, Appendix C 
Compiler-system tape, 

duplication of, A-2 

use of, A-1 
Compound statements, 4-2 
Conditional control, 6-2 
Constants (Boolean, floating-point, and 

integer), 2-2 
Control statements, 

for iteration, 6-4 

for termination of computation, 6-1 



Data cards, preparation of, 8-2 
Debugging (see Diagnostic Aids) 
Decimal point, 2-2 
card-equipment symbol for multi- 
plication, D-1 
Declarations of type, 5-1 
by default, 5-2 
restrictions upon, 7-2 
Diagnostic aids 
error messages 

during compilation, 10-1 
during library maintenance, A-2 
during object run (from library 
procedures), 10-4 
memory dump, 
manual, 10-3 
program-controlled, 10-3 
object program 
listing of, 10-4 
monitoring of, 10-3 
punching of, A-2 
Division (/), arithmetic operation, 3-1 
Dollar sign, print for semicolon, 2-1 
Dummy statement, labeled, use of, 4-3 
dump callout deck, A-2 
Dump, storage, 10-3 
Duplicating the compiler tape, A-2 

Editing phrases (for output), 8-4 
EITHER IF (alternative) statement, 6-3 
END (statement parenthesis), 4-2 
ENTER statement, 7-1 
EQIV (Boolean operation), 3-2 



EQL (arithmetic relation), 3-3 

Equality sign, as symbol for substitution, 
4-1 

Equivalence cards, E-2 

Error messages, 

during compilation, 10-1 
during library maintenance, A-2 
during object run (from library pro- 
cedures), 10-4 

Error message procedure, E-5 

Evaluated functions, 2-3 

Exponentiation (*), arithmetic operation, 
3-1 

Expressions, Chapter III, 
arithmetic, 3-1 

mixed, 3-3 
EXTERNAL PROCEDURE 

declaration, 7-7, E-4 
External procedures, 7-5 
External programs, preparation of. 

Appendix E 
EXTERNAL STATEMENT 

declaration, 4-3, 7-7 

FINISH declaration, 5-3 

operation of, A-2 
Fixed-point (integer) quantities, 2-2 
FLOATING declaration, 5-1 

by default, 5-2 
Floating-point quantities, 2-2 
FOR statement, 6-4 
FORMAT declaration, 8-3, E-7 
Formats, for output, 8-3 
FUNCTION declaration, 7-2 
Functions, declared and intrinsic, 7-2 

defined by procedures, 7-4 

evaluated, 2-3 

GEQ (arithmetic relation), 3-3 
GO statement, 6-1 
GO TO statement, 6-1 
GTR (arithmetic relation), 3-3 

Identifiers, 2-1 

reserved, list of. Appendix B 
IF statement, 6-2 
IMPL (Boolean operation), 3-2 
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Induction variable, 6-^ 
Input cards, preparation of, 8-2 
Input-data sets, 8-1 
Input data-set labels, 8-1 
INPUT declaration, 8-1 
Input-output procedures, E-6 
Input-output techniques, 8-1 
INTEGER declaration, 5-1 
Integer quantities, 'i-'i 
Intrinsic functions, 7-2 
Iterated variable, 8-1 
Iteration, control of, 6-4 

Labels, 

for input-data sets, 8-1 

for output-data sets, 8-2 

for statements, 4-2 
Leading zeros, 2-2 
LEQ (arithmetic relation), 3-3 
Library maintenance, A-2, E-5 

LIBRARY PROCESSOR CALLOUT deck, A-2 

Library procedures, 7-5 

adding to compiler tape, A-2, E-5 

description of. Appendix F 

list of, F-1 
Linkage to machine-language 

procedures, E-1 
Listing 

of object program, 10-4 

of symbolic program, 10-1 
List of parameters, in procedure 

declaration, 7-5 
Logical (Boolean) operations, 3-2 
LSS (arithmetic relation), 3-3 

Machine-language procedures, 7-5, 

Appendix E 
Magnetic-tape operations, use of, E-3 
MAX (intrinsic function), 7-2 
Memory dump, 10-3 
Metalinguistic symbols, 2-1 
MIN (intrinsic function), 7-2 
Mixed (floating and fixed) arithmetic, 3-2 
MOD (intrinsic function), 7-2 
MONITOR declaration, 10-3 
Monitoring (of object program), 

control sequence, 10-3 

variables, 10-3 
Multiplication (•), arithmetic 

operation, 3-1 
Multiplication sign, 

decimal point equivalent of, 

omission of, 3-1 

NEQ (arithmetic relation), 3-3 
NOT (Boolean operation), 3-2 

Object program, 

cell-count message, A-1 

listing of, 10-4 

monitoring of, 10-3 

punching of, A-2 
Operational statements, 4-1 
Operations, Chapter III 

arithmetic, 3-1 

Boolean, 3-2 

rules of precedence for sequencing, 
3-1, 3-3 
OR (Boolean operation), 3-2 
OTHERWISE, used in alternative 

statements, 6-3 



Output-data sets, 8-3 
Output data-set labels, 8-3 
OUTPUT declaration, 8-3 
OVERLAY statement, 9-2 
Overlay techniques, 9-1 

Page-eject control, 8-5 
Parameters, 

lists of, 7-5 

of name, 7-S 

of value, 7-6 
Parentheses, 

in place of BEGIN, 4-2 

in place of END, 4-2 

optional use of, 5-1, 8-1, 8-3 

in parameter lists, 7-5 

printing equivalents of, 2-1 

use to indicate precedence, 3-1 
PCS (intrinsic function), 7-2 
Phrases, 

activation, 8-5 

alphanumeric insertion, 8-5 

editing, 8-4 

format, 8-3 

format repeat, 8-4 
Power routines. Appendix F 
Precedence rules, 

arithmetic, 3-1 

Boolean, 3-3 
Prefixes, use of, 5-1 
Preparing data cards, 8-2 
Printed characters, 2-1 
Procedure-assignment statement, 7-6 
Procedure-call statement, 7-^ 
PROCEDURE declaration, 7-5 
Procedures, 7-3 

construction of, 7-6 

declarations in, 7-6 . 

examples of, 7-7 

external, 7-h 

functions defined by, 7-4 

input-output. Appendix E 

library, 7-4, Appendix F 

linkage to, E-1 

machine-language, 7-5 

parameter lists in, 7-5, E-2 
Program deck {see source deck) 
Punching-out object deck, A-2 

READ procedure, 8-2 
REAL declaration, 5-1 
Relational operator, 3-2 
Relations, arithmetic, 3-3 
Relocation 

conventions, E-2 

digits, 10-4, A-1 
Reserved words, 2-1 

list of. Appendix B 
RETURN statement, 7-1 

Sample programs, Chapter XI 
Scale factors in floating-point 
constants, 2-2 

SEGMENT declaration, 9-1 

Segment label, 9-1 

Semicolon, 

on data cards, 8-2 
in FINISH declaration, 5-3 
printing equivalent of, 2-1 
in READ procedure, 8-2 
statement separator, 4-2 
in WRITE procedure, 8-3 



Sentinel card, 8-2 

format, 8-3 

in READ procedure, 8-2 
Sentinel declaration, 8-2 
SIGN (intrinsic function), 7-2 
Simple variables, 2-2 
Source deck, preparation and use of, A-1 
Spaces, 2-1, 3-3 

Spacing control, for printing, 8-5 
Special characters, equivalents for 

printing, 2-1 

STATEMENT MONITORING CONTROL 

cards, 10-3, A-1 
Statements, 4-f 

alternative, 6-3 

assignment, 4-i 
arithmetic, 4-1 
Boolean, 4-1 
generalized, 4-2 

compound, 4-2 

control, 4-1, Chapter VI 

declarative, 4-1, Chapter V 

dummy, 4-3 

labels for, 4-2 

monitoring of, 10-3, A-1 

procedure-assignment, 7-6 

procedure-call, 7-4 
STOP statement, 6-1 
Subroutine, 7-1 

Subroutine call {see ENTER statement) 
SUBROUTINE declaration, 7-1 
Subroutine exit {see RETURN 

statement) 
Subscripts, variables with, 2-2 
Subtraction ( — ), arithmetic operation, 

3-1 
SWITCH statement, 6-1 
Symbolic deck {see source deck) 
Symbolic storage dump, 10-3 
Syntax of compiler language, 

Appendix C 

Tape (see magnetic-tape operations) 

TO {see GO TO) 

Transfer of control, conditional, 

alternative statement, 6-3 

FOR statement, 6-4 

IF statement, 6-2 

SWITCH statements, 6-1 

UNTIL statement, 6-4 
Transfer of control, unconditional, 

ENTER statement, 7-1 

GO {or GO TO) statement, 6-1 

RETURN statement, 7-1 
Type, 

of arithmetic assignment statements, 
4-1 

of arithmetic expressions, 3-2 
Type declarations, 5-1 

by default, 5-2 

restrictions upon, 7-2 
Type lists, 5-1 

UNTIL statement, 6-4 

Variable, 

induction, 6-4 

iterated, 8-1 
Variables, 

simple, 2-2 

use in iterations, 6-4 

with subscripts, 2-2, 5-2 

WRITE procedure, 8-3 



1-2 



Burroughs Corporation 

Detroit 32, Michigan 

In Canada: Burroughs Business Machines Ltd., Toronto, Ontario 



U^ 



BULLETIN 220-21011-D 2-2-6 PRINTED IN U.S.A. 



